summaryrefslogtreecommitdiff
path: root/Data/OpenPGP/Util/Sign.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Data/OpenPGP/Util/Sign.hs')
-rw-r--r--Data/OpenPGP/Util/Sign.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Data/OpenPGP/Util/Sign.hs b/Data/OpenPGP/Util/Sign.hs
index b9c6435..a074dcb 100644
--- a/Data/OpenPGP/Util/Sign.hs
+++ b/Data/OpenPGP/Util/Sign.hs
@@ -113,7 +113,7 @@ unsafeSign keys over hsh keyid timestamp g = (over {OpenPGP.signatures_over = [s
113 (Right rsaFinal,_) = Vincent.RSA.signSafer g desc (privateRSAkey k) dta 113 (Right rsaFinal,_) = Vincent.RSA.signSafer g desc (privateRSAkey k) dta
114#endif 114#endif
115 dsaTruncate (Vincent.DSA.PrivateKey (Vincent.DSA.Params _ _ q) _) = BS.take (integerBytesize q) 115 dsaTruncate (Vincent.DSA.PrivateKey (Vincent.DSA.Params _ _ q) _) = BS.take (integerBytesize q)
116 dta = toStrictBS $ encode over `LZ.append` OpenPGP.trailer sig 116 dta = LZ.toStrict $ encode over `LZ.append` OpenPGP.trailer sig
117 sig = findSigOrDefault (listToMaybe $ OpenPGP.signatures_over over) 117 sig = findSigOrDefault (listToMaybe $ OpenPGP.signatures_over over)
118 -- padding = emsa_pkcs1_v1_5_hash_padding hsh 118 -- padding = emsa_pkcs1_v1_5_hash_padding hsh
119 desc = hashAlgoDesc hsh 119 desc = hashAlgoDesc hsh