Preserve topkey for all subkeys

singpolyma · Aug 11, 2013 · eba7e4f · eba7e4f
1 parent 7b504d9
commit eba7e4f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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)