From 7e2ea83cede38226850369a92c8023c19fba3238 Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Sat, 16 Mar 2013 12:32:07 -0500
Subject: Fix extraction of UserID signatures

---
 Data/OpenPGP.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs
index 092e6ff..7433889 100644
--- a/Data/OpenPGP.hs
+++ b/Data/OpenPGP.hs
@@ -954,7 +954,7 @@ paired_sigs (Just k) (p@(SecretKeyPacket {is_subkey = True}):ps) =
 	paired_sigs (Just p) (dropWhile isSignaturePacket ps)
 paired_sigs (Just k) (p@(UserIDPacket {}):ps) =
 	CertificationSignature k p (takeWhile isSignaturePacket ps) :
-	paired_sigs (Just p) (dropWhile isSignaturePacket ps)
+	paired_sigs (Just k) (dropWhile isSignaturePacket ps)
 paired_sigs k (_:ps) = paired_sigs k ps
 
 -- | <http://tools.ietf.org/html/rfc4880#section-3.2>
-- 
cgit v1.2.3