diff options
-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], |