From 4a31287e55e1bd45d8ae3c715a194c2b9d35636f Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Tue, 19 May 2020 11:56:05 -0400
Subject: Allow 64-digit fingerprint to be used with IssuerPacket constructor.

---
 Data/OpenPGP.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs
index bee718a..104c551 100644
--- a/Data/OpenPGP.hs
+++ b/Data/OpenPGP.hs
@@ -1248,7 +1248,9 @@ put_signature_subpacket (RevocationKeyPacket sensitive kalgo fpr) =
         fprb = padBS 20 $ B.drop 2 $ encode (MPI fpri)
         fpri = fst $ head $ readHex fpr
 put_signature_subpacket (IssuerPacket keyid) =
-        (encode (fst $ head $ readHex $ takeFromEnd 16 keyid :: Word64), 16)
+        case length keyid of
+            64 -> (encode (fst $ head $ readHex $ take 16 keyid :: Word64), 16)
+            _  -> (encode (fst $ head $ readHex $ takeFromEnd 16 keyid :: Word64), 16)
 put_signature_subpacket (NotationDataPacket human_readable name value) =
         (B.concat [
                 B.pack [flag1,0,0,0],
-- 
cgit v1.2.3