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 | |
| parent | 23ae3589be6273b9fe7b0925a2b290e0e48f38d6 (diff) | |
Remove noisy debug print.
| -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) |