summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-07-03 04:54:51 -0400
committerJoe Crayne <joe@jerkface.net>2019-07-03 04:54:51 -0400
commit18a7a369c12b10f6db7dc014e77d7cc6fc2b7dcf (patch)
tree752f1ed7ee827484c367a864f6e83f202f613c2a /lib
parent23ae3589be6273b9fe7b0925a2b290e0e48f38d6 (diff)
Remove noisy debug print.
Diffstat (limited to 'lib')
-rw-r--r--lib/PacketTranscoder.hs6
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)
233transcodeWithCache unkeysRef miss alg0 mp@MappedPacket{ packet = wk } = do 233transcodeWithCache 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)