From 900847e86665cef491730b5a588d99c557c8d7c7 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Wed, 1 Feb 2017 03:26:08 -0500
Subject: Quieter thread instrumentation.

---
 src/Control/Concurrent/Lifted/Instrument.hs | 1 -
 1 file changed, 1 deletion(-)

(limited to 'src/Control/Concurrent/Lifted')

diff --git a/src/Control/Concurrent/Lifted/Instrument.hs b/src/Control/Concurrent/Lifted/Instrument.hs
index e4582375..29bac871 100644
--- a/src/Control/Concurrent/Lifted/Instrument.hs
+++ b/src/Control/Concurrent/Lifted/Instrument.hs
@@ -54,7 +54,6 @@ fork action = do
 labelThread :: ThreadId -> String -> IO ()
 labelThread tid s = do
     GHC.labelThread tid s
-    putStrLn $ "labelThread "++s++" "++show tid
     modifyThreads $ Map.adjust (\pt -> pt { lbl = s }) tid
 
 threadsInformation :: IO [PerThread]
-- 
cgit v1.2.3