1 files changed, 4 insertions, 3 deletions

diff --git a/lib/PacketTranscoder.hs b/lib/PacketTranscoder.hs
index 830ec2f..730a221 100644
--- a/lib/PacketTranscoder.hs
+++ b/lib/PacketTranscoder.hs
@@ -106,9 +106,9 @@ interpretPassSpec :: InputFileContext
                         -> (Maybe MappedPacket, Map.Map KeyKey (OriginMapped Query))
                         -> PassphraseSpec
                         -> IO (KikiCondition (PassphraseSource, IO ()) )
-interpretPassSpec ctx keys PassphraseSpec { passSpecPassFile = fd
-                                          , passSpecKeySpec = keyspec
-                                          , passSpecRingFile = inputfile } = do
+interpretPassSpec ctx _ PassphraseSpec { passSpecPassFile = fd
+                                       , passSpecKeySpec = keyspec
+                                       , passSpecRingFile = inputfile } = do
     getpw <-
         cachedContents (Just "Enter possibly multi-line passphrase (Press CTRL-D when finished):\n")
                        ctx
@@ -241,6 +241,7 @@ transcodeWithCache unkeysRef miss alg0 mp@MappedPacket{ packet = wk } = do
             else maybe (miss alg mp) (return . KikiSuccess)
                     $ Map.lookup (keykey wk,fst alg, snd alg) unkeys
 
+tryInOrder :: [PacketTranscoder] -> PacketTranscoder
 tryInOrder [] _ _        = return BadPassphrase
 tryInOrder [f] alg mp    = f alg mp
 tryInOrder (f:fs) alg mp = do