summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/PacketTranscoder.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/PacketTranscoder.hs b/lib/PacketTranscoder.hs
index eaed938..03b219b 100644
--- a/lib/PacketTranscoder.hs
+++ b/lib/PacketTranscoder.hs
@@ -233,9 +233,9 @@ transcodeWithCache :: IORef (Map (KeyKey, SymmetricAlgorithm, S2K) Packet)
233transcodeWithCache unkeysRef miss alg0 mp@MappedPacket{ packet = wk } = do 233transcodeWithCache unkeysRef miss alg0 mp@MappedPacket{ packet = wk } = do
234 let alg = normalizeAlgorithm alg0 234 let alg = normalizeAlgorithm alg0
235 unkeys <- readIORef unkeysRef 235 unkeys <- readIORef unkeysRef
236 calls <- currentCallStack 236 -- calls <- currentCallStack
237 putStrLn $ concat [fingerprint wk," ", show (symmetric_algorithm wk,s2k wk)," --> ",show alg] 237 -- putStrLn $ concat [fingerprint wk," ", show (symmetric_algorithm wk,s2k wk)," --> ",show alg]
238 mapM_ putStrLn calls 238 -- mapM_ putStrLn calls
239 if (symmetric_algorithm wk,s2k wk) == alg 239 if (symmetric_algorithm wk,s2k wk) == alg
240 then return (KikiSuccess wk) 240 then return (KikiSuccess wk)
241 else maybe (miss alg mp) (return . KikiSuccess) 241 else maybe (miss alg mp) (return . KikiSuccess)