Fixed --show-whose-key

1 files changed, 1 insertions, 1 deletions

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