diff options
author | Joe Crayne <joe@jerkface.net> | 2020-05-19 11:56:05 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-05-19 11:58:10 -0400 |
commit | 4a31287e55e1bd45d8ae3c715a194c2b9d35636f (patch) | |
tree | 423c100555de77894338846861e3c03c80684e4a /Data | |
parent | 47fdd273f68e0af73595daa1f3a9cdff2c8a9320 (diff) |
Allow 64-digit fingerprint to be used with IssuerPacket constructor.
Diffstat (limited to 'Data')
-rw-r--r-- | Data/OpenPGP.hs | 4 |
1 files changed, 3 insertions, 1 deletions
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) = | |||
1248 | fprb = padBS 20 $ B.drop 2 $ encode (MPI fpri) | 1248 | fprb = padBS 20 $ B.drop 2 $ encode (MPI fpri) |
1249 | fpri = fst $ head $ readHex fpr | 1249 | fpri = fst $ head $ readHex fpr |
1250 | put_signature_subpacket (IssuerPacket keyid) = | 1250 | put_signature_subpacket (IssuerPacket keyid) = |
1251 | (encode (fst $ head $ readHex $ takeFromEnd 16 keyid :: Word64), 16) | 1251 | case length keyid of |
1252 | 64 -> (encode (fst $ head $ readHex $ take 16 keyid :: Word64), 16) | ||
1253 | _ -> (encode (fst $ head $ readHex $ takeFromEnd 16 keyid :: Word64), 16) | ||
1252 | put_signature_subpacket (NotationDataPacket human_readable name value) = | 1254 | put_signature_subpacket (NotationDataPacket human_readable name value) = |
1253 | (B.concat [ | 1255 | (B.concat [ |
1254 | B.pack [flag1,0,0,0], | 1256 | B.pack [flag1,0,0,0], |