diff options
| author | Joe Crayne <joe@jerkface.net> | 2020-05-19 11:57:13 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2020-05-19 11:59:23 -0400 |
| commit | 924ce0d71c3588e8c020a28ced9e5a0923a8da98 (patch) | |
| tree | 06384e360943bc930e21bc6dff1ed8cd86b4003d /Data/OpenPGP/Util/Verify.hs | |
| parent | b5453e2f99a4b4f15bff45a19688e7006a3b9d20 (diff) | |
TODO: Comments (we aren't setting hash_head correctly).
Diffstat (limited to 'Data/OpenPGP/Util/Verify.hs')
| -rw-r--r-- | Data/OpenPGP/Util/Verify.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Data/OpenPGP/Util/Verify.hs b/Data/OpenPGP/Util/Verify.hs index 52e9005..359e116 100644 --- a/Data/OpenPGP/Util/Verify.hs +++ b/Data/OpenPGP/Util/Verify.hs | |||
| @@ -49,6 +49,7 @@ verify keys over = | |||
| 49 | sigs = map (\s -> (s, LZ.toStrict $ encode over `LZ.append` OpenPGP.trailer s)) | 49 | sigs = map (\s -> (s, LZ.toStrict $ encode over `LZ.append` OpenPGP.trailer s)) |
| 50 | (OpenPGP.signatures_over over) | 50 | (OpenPGP.signatures_over over) |
| 51 | 51 | ||
| 52 | -- TODO: Check hash_head field? | ||
| 52 | verifyOne :: OpenPGP.Message -> OpenPGP.Packet -> BS.ByteString -> Maybe OpenPGP.Packet | 53 | verifyOne :: OpenPGP.Message -> OpenPGP.Packet -> BS.ByteString -> Maybe OpenPGP.Packet |
| 53 | verifyOne keys sig over = fmap (const sig) $ maybeKey >>= verification >>= guard | 54 | verifyOne keys sig over = fmap (const sig) $ maybeKey >>= verification >>= guard |
| 54 | where | 55 | where |