Minor cleanup, comments.

1 files changed, 3 insertions, 3 deletions

diff --git a/lib/PacketTranscoder.hs b/lib/PacketTranscoder.hs
index 03b219b..830ec2f 100644
--- a/lib/PacketTranscoder.hs
+++ b/lib/PacketTranscoder.hs
@@ -253,14 +253,14 @@ tryInOrder (f:fs) alg mp = do
 
 -- The transcoder works on 'MappedPacket' instead of 'Packet' so that
 -- file-specific passphrases can be utilized.
-makeMemoizingDecrypter :: KeyRingOperation -> InputFileContext
+makeMemoizingDecrypter :: [PassphraseSpec] -> InputFileContext
                         -> (Maybe MappedPacket, Map.Map KeyKey (OriginMapped Query))
                         -> IO PacketTranscoder
-makeMemoizingDecrypter operation ctx (workingkey,keys) = do
+makeMemoizingDecrypter passwdspec ctx (workingkey,keys) = do
     unkeysRef <- newIORef (Map.empty :: Map.Map (KeyKey,SymmetricAlgorithm,S2K) Packet)
     return $ tryInOrder $ map passSpecTranscoder chains ++ [ trans unkeysRef ]
  where
-    (chains,passpecs) = span isChain $ sort $ opPassphrases operation
+    (chains,passpecs) = span isChain $ sort passwdspec
                         where isChain (PassphraseMemoizer {}) = True
                               isChain _                       = False
     srcs = map (interpretPassSpec ctx (workingkey,keys)) passpecs