diff options
author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2013-01-03 16:16:40 -0500 |
---|---|---|
committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2013-01-03 16:16:40 -0500 |
commit | 6c1805b9f9fd0ce6f9387fb63c34ad99205e0736 (patch) | |
tree | 3c3d410af77653dd1deee09fe950ccbe26c903b4 /Data | |
parent | fc9dd0707c349e8e8e822d8e5a624dd46ac961f2 (diff) |
Missed one fingerprint truncation
Diffstat (limited to 'Data')
-rw-r--r-- | Data/OpenPGP.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index 209d876..ede0caa 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs | |||
@@ -414,7 +414,7 @@ put_packet (SignaturePacket { version = v, | |||
414 | encode hash_head | 414 | encode hash_head |
415 | ] ++ map encode signature, 2) | 415 | ] ++ map encode signature, 2) |
416 | where | 416 | where |
417 | keyid = fst $ head $ readHex keyidS :: Word64 | 417 | keyid = fst $ head $ readHex $ takeFromEnd 16 keyidS :: Word64 |
418 | Just (IssuerPacket keyidS) = find isIssuer unhashed_subpackets | 418 | Just (IssuerPacket keyidS) = find isIssuer unhashed_subpackets |
419 | isIssuer (IssuerPacket {}) = True | 419 | isIssuer (IssuerPacket {}) = True |
420 | isIssuer _ = False | 420 | isIssuer _ = False |