diff options
| author | Joe Crayne <joe@jerkface.net> | 2020-05-16 08:32:17 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2020-05-19 11:58:22 -0400 |
| commit | ff5c89ee76c707228afc66afac573c6fd0efffa3 (patch) | |
| tree | 93b3ab9bcfe674582895eea8c0ce6b9eff88f558 /Data/OpenPGP/Util/Sign.hs | |
| parent | 8fdfd0fc119519041683bc74e9d7a35231728ae3 (diff) | |
Refactor toward draft-ietf-openpgp-rfc4880bis-09.
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 |