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)
 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)