Missed one fingerprint truncation

singpolyma · Jan 3, 2013 · 6c1805b · 6c1805b
1 parent fc9dd07
commit 6c1805b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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