From 6c1805b9f9fd0ce6f9387fb63c34ad99205e0736 Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Thu, 3 Jan 2013 16:16:40 -0500
Subject: Missed one fingerprint truncation

---
 Data/OpenPGP.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Data')

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
-- 
cgit v1.2.3