From eba7e4fdce3de6622b4ec3862b405b0acd016377 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Sat, 10 Aug 2013 23:23:15 -0500 Subject: Preserve topkey for all subkeys --- Data/OpenPGP.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Data') diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index 7995d89..1f0ff34 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs @@ -948,10 +948,10 @@ paired_sigs _ (p@(SecretKeyPacket {is_subkey = False}):ps) = paired_sigs (Just p) (dropWhile isSignaturePacket ps) paired_sigs (Just k) (p@(PublicKeyPacket {is_subkey = True}):ps) = SubkeySignature k p (takeWhile isSignaturePacket ps) : - paired_sigs (Just p) (dropWhile isSignaturePacket ps) + paired_sigs (Just k) (dropWhile isSignaturePacket ps) paired_sigs (Just k) (p@(SecretKeyPacket {is_subkey = True}):ps) = SubkeySignature k p (takeWhile isSignaturePacket ps) : - paired_sigs (Just p) (dropWhile isSignaturePacket ps) + paired_sigs (Just k) (dropWhile isSignaturePacket ps) paired_sigs (Just k) (p@(UserIDPacket {}):ps) = CertificationSignature k p (takeWhile isSignaturePacket ps) : paired_sigs (Just k) (dropWhile isSignaturePacket ps) -- cgit v1.2.3