summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-11-01 12:00:10 -0400
committerJoey Hess2015-11-01 12:00:10 -0400
commit4b4dd3122516559a95dac4f17fc011f607f4ff76 (patch)
tree6ed46fc175f887ab1bd1a6a4b1685b993b30da56
parent80300166c552a7329a3df8fa693b9c45158eb229 (diff)
propellor spin
-rw-r--r--src/Utility/ConcurrentOutput.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs
index 4676c2fa..3494aa63 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -228,6 +228,8 @@ 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.
@@ -237,6 +239,8 @@ createProcessConcurrent p
return r
concurrentprocess = do
+ hPutStrLn stderr "RUNNING BG"
+ hFlush stderr
(toouth, fromouth) <- pipe
(toerrh, fromerrh) <- pipe
let p' = p