From b1ae1ecdc9d1f16134ea40b07a6cedcc26a94db8 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sat, 6 Jul 2019 17:26:54 -0400
Subject: Quiet down some of the warnings.

---
 lib/PacketTranscoder.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'lib/PacketTranscoder.hs')

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
-- 
cgit v1.2.3