From fe843ba53242e1f4ee7f7b14f0046b170db538bc Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Fri, 18 Apr 2014 01:26:41 -0400
Subject: Fixed --show-whose-key

---
 kiki.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/kiki.hs b/kiki.hs
index 9f6962f..b5509f8 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -961,7 +961,7 @@ whoseKey rsakey db = filter matchkey (Map.elems db)
     check k sub (sig,_) = not . null $ do
         s <- signatures . Message $ [k,sub,packet sig]
         fw <- signatures_over $ verify (Message [k]) s
-        subsig <- mapMaybe backsig (unhashed_subpackets sub)
+        subsig <- mapMaybe backsig (unhashed_subpackets $ packet sig)
         subsig_so <- signatures (Message [k,sub,subsig])
         guard (  isSubkeySignature subsig_so
               && isSameKey (topkey subsig_so) k
-- 
cgit v1.2.3