summaryrefslogtreecommitdiff
path: root/src/Utility/ConcurrentOutput.hs
diff options
context:
space:
mode:
authorJoey Hess2015-11-01 12:12:05 -0400
committerJoey Hess2015-11-01 12:12:05 -0400
commitfdaedbd4a1afeef5b46c16978b7e5fd681110275 (patch)
tree3c99827495348dc0c50972fed34c4c9dec5fdaed /src/Utility/ConcurrentOutput.hs
parent071ca51130ecda35c259542df68b94730e645e22 (diff)
propellor spin
Diffstat (limited to 'src/Utility/ConcurrentOutput.hs')
-rw-r--r--src/Utility/ConcurrentOutput.hs4
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