Missed one fingerprint truncation

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,
                 encode hash_head
         ] ++ map encode signature, 2)
         where
-        keyid = fst $ head $ readHex keyidS :: Word64
+        keyid = fst $ head $ readHex $ takeFromEnd 16 keyidS :: Word64
         Just (IssuerPacket keyidS) = find isIssuer unhashed_subpackets
         isIssuer (IssuerPacket {}) = True
         isIssuer _ = False