signQuote :: Quote -> Hash -> QuotePackage
signQuote quote hash =
  case sign Nothing md5 pri res of
         Left err -> error $ show err
         Right signature -> (quote, hash, signature) 
 where res =  qPack quote hash
signQuote :: Quote -> Hash -> QuotePackage
signQuote quote hash =
  case sign Nothing md5 pri res of
         Left err -> error $ show err
         Right signature -> (quote, hash, signature) 
 where res =  qPack quote hash
signQuote quote hash =
  case sign Nothing md5 pri res of
         Left err -> error $ show err
         Right signature -> (quote, hash, signature) 
 where res =  qPack quote hash