From fdaedbd4a1afeef5b46c16978b7e5fd681110275 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 1 Nov 2015 12:12:05 -0400 Subject: propellor spin --- src/Utility/ConcurrentOutput.hs | 4 ---- 1 file changed, 4 deletions(-) (limited to 'src/Utility') diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs index 3494aa63..4676c2fa 100644 --- a/src/Utility/ConcurrentOutput.hs +++ b/src/Utility/ConcurrentOutput.hs @@ -228,8 +228,6 @@ createProcessConcurrent p | otherwise = ss firstprocess = do - hPutStrLn stderr "RUNNING FG" - hFlush stderr r@(_, _, _, h) <- P.createProcess p `onException` dropOutputLock -- Wait for the process to exit and drop the lock. @@ -239,8 +237,6 @@ createProcessConcurrent p return r concurrentprocess = do - hPutStrLn stderr "RUNNING BG" - hFlush stderr (toouth, fromouth) <- pipe (toerrh, fromerrh) <- pipe let p' = p -- cgit v1.2.3