[throttle] remove putStrLn debug messages

src/Control/Concurrent/Throttle.hs

@@ -63,8 +63,8 @@ throttle delay tchan action = do
       m <- TVar.readTVarIO smap
       -- let (_needToWait, canRun) = Map.partition (\(_, t) -> now - t < delay) m
       let canRun = Map.filter (\(_, t) -> now - t >= delay) m
-      putStrLn $ "[mapCleaner] m " <> show (Map.mapWithKey (\k (_, t) -> (k, now - t)) m)
-      putStrLn $ "[mapCleaner] canRun " <> show (Map.keys canRun)
+      -- putStrLn $ "[mapCleaner] m " <> show (Map.mapWithKey (\k (_, t) -> (k, now - t)) m)
+      -- putStrLn $ "[mapCleaner] canRun " <> show (Map.keys canRun)
       mapM_ (\(msg, _) -> action msg) canRun
 
       -- OK so this is a bit tricky. STM guarantees atomic read above