diff options
-rw-r--r-- | lib/PacketTranscoder.hs | 6 |
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) | |||
233 | transcodeWithCache unkeysRef miss alg0 mp@MappedPacket{ packet = wk } = do | 233 | transcodeWithCache 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) |