diff options
author | Joe Crayne <joe@jerkface.net> | 2019-07-03 04:54:51 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2019-07-03 04:54:51 -0400 |
commit | 18a7a369c12b10f6db7dc014e77d7cc6fc2b7dcf (patch) | |
tree | 752f1ed7ee827484c367a864f6e83f202f613c2a /lib | |
parent | 23ae3589be6273b9fe7b0925a2b290e0e48f38d6 (diff) |
Remove noisy debug print.
Diffstat (limited to 'lib')
-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) |