signEvidence :: Evidence -> Nonce -> EvidencePackage
signEvidence e n =
  case sign Nothing md5 pri res of
         Left err -> error $ show err
         Right signature -> (e, n, signature) 
         
   where res = ePack e n
signEvidence :: Evidence -> Nonce -> EvidencePackage
signEvidence e n =
  case sign Nothing md5 pri res of
         Left err -> error $ show err
         Right signature -> (e, n, signature) 
         
   where res = ePack e n
signEvidence e n =
  case sign Nothing md5 pri res of
         Left err -> error $ show err
         Right signature -> (e, n, signature) 
         
   where res = ePack e n