diff options
Diffstat (limited to 'src/Utility/ConcurrentOutput.hs')
| -rw-r--r-- | src/Utility/ConcurrentOutput.hs | 4 |
1 files changed, 0 insertions, 4 deletions
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 |