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