From 18a7a369c12b10f6db7dc014e77d7cc6fc2b7dcf Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Wed, 3 Jul 2019 04:54:51 -0400 Subject: Remove noisy debug print. --- lib/PacketTranscoder.hs | 6 +++--- 1 file 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) transcodeWithCache unkeysRef miss alg0 mp@MappedPacket{ packet = wk } = do let alg = normalizeAlgorithm alg0 unkeys <- readIORef unkeysRef - calls <- currentCallStack - putStrLn $ concat [fingerprint wk," ", show (symmetric_algorithm wk,s2k wk)," --> ",show alg] - mapM_ putStrLn calls + -- calls <- currentCallStack + -- putStrLn $ concat [fingerprint wk," ", show (symmetric_algorithm wk,s2k wk)," --> ",show alg] + -- mapM_ putStrLn calls if (symmetric_algorithm wk,s2k wk) == alg then return (KikiSuccess wk) else maybe (miss alg mp) (return . KikiSuccess) -- cgit v1.2.3