this compiles

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/PacketTranscoder.hs b/lib/PacketTranscoder.hs
index 759d83f..b24f3d2 100644
--- a/lib/PacketTranscoder.hs
+++ b/lib/PacketTranscoder.hs
@@ -113,7 +113,7 @@ interpretPassSpec ctx _ PassphraseSpec { passSpecPassFile = fd
         cachedContents (Just "Enter possibly multi-line passphrase (Press CTRL-D when finished):\n")
                        ctx
                        fd
-    let matchkey fp mp = matchpr fp (packet mp) == fp
+    let matchkey fp mp = matchpr fp (packet mp)
         matchfile file mp = Map.member file (locations mp)
         specializers = [ fmap matchkey keyspec, fmap matchfile inputfile]
         specialize alg mp =
@@ -268,7 +268,7 @@ makeMemoizingDecrypter passwdspec ctx (workingkey,keys) = do
 
     trans unkeysRef = transcodeWithCache unkeysRef (foldr (makeTranscoder unkeysRef) (\_ _ -> return BadPassphrase) srcs)
 
-keyQueries :: Maybe String -> Map InputFile (StreamInfo,Message) -> (Maybe MappedPacket, Map KeyKey (OriginMapped Query))
+keyQueries :: Maybe Fingerprint -> Map InputFile (StreamInfo,Message) -> (Maybe MappedPacket, Map KeyKey (OriginMapped Query))
 keyQueries grip ringPackets = (mwk, fmap makeQuery keys)
  where
     makeQuery (maink,mp,us) = mp { packet = q }
@@ -291,8 +291,8 @@ keyQueries grip ringPackets = (mwk, fmap makeQuery keys)
     mwk = listToMaybe $ do
             fp <- maybeToList grip
             let matchfp mp
-                 | not (is_subkey p) && matchpr fp p == fp = Just mp
-                 | otherwise                               = Nothing
+                 | not (is_subkey p) && matchpr fp p = Just mp
+                 | otherwise                         = Nothing
                     where p = packet mp
             Map.elems $ Map.mapMaybe matchfp $ fmap (\(_,p,_) -> p) $ keys