diff options
Diffstat (limited to 'Data/OpenPGP/Util/Sign.hs')
-rw-r--r-- | Data/OpenPGP/Util/Sign.hs | 2 |
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 |