diff options
author | joe <joe@jerkface.net> | 2014-04-18 01:26:41 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2014-04-18 01:26:41 -0400 |
commit | fe843ba53242e1f4ee7f7b14f0046b170db538bc (patch) | |
tree | 30bfa67dba4ba4623d7b7bffa30bde6b143802b1 | |
parent | 6b13522c93e6efb3b4199f671a6506dec88f9fe9 (diff) |
Fixed --show-whose-key
-rw-r--r-- | kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -961,7 +961,7 @@ whoseKey rsakey db = filter matchkey (Map.elems db) | |||
961 | check k sub (sig,_) = not . null $ do | 961 | check k sub (sig,_) = not . null $ do |
962 | s <- signatures . Message $ [k,sub,packet sig] | 962 | s <- signatures . Message $ [k,sub,packet sig] |
963 | fw <- signatures_over $ verify (Message [k]) s | 963 | fw <- signatures_over $ verify (Message [k]) s |
964 | subsig <- mapMaybe backsig (unhashed_subpackets sub) | 964 | subsig <- mapMaybe backsig (unhashed_subpackets $ packet sig) |
965 | subsig_so <- signatures (Message [k,sub,subsig]) | 965 | subsig_so <- signatures (Message [k,sub,subsig]) |
966 | guard ( isSubkeySignature subsig_so | 966 | guard ( isSubkeySignature subsig_so |
967 | && isSameKey (topkey subsig_so) k | 967 | && isSameKey (topkey subsig_so) k |