summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 12:54:28 -0400
committerJoey Hess2015-10-28 12:54:28 -0400
commita02a837afb91dc025cb3862b90c1d62c1562cb23 (patch)
treec3553e799652e329e321a375289562dbd4ba5567
parent42e965e4ebde989cec7ce4c0d1b284cd54a16b64 (diff)
propellor spin
-rw-r--r--src/Utility/ConcurrentOutput.hs5
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs
index 7868ffd4..8497b2dc 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -164,13 +164,12 @@ createProcessConcurrent :: P.CreateProcess -> IO (Maybe Handle, Maybe Handle, Ma
createProcessConcurrent p
| willoutput (P.std_out p) || willoutput (P.std_err p) =
ifM tryTakeOutputLock
- ( do
- hPutStrLn stderr "IS NOT CONCURRENT"
- firstprocess
+ ( firstprocess
, do
lcker <- outputLockedBy <$> getOutputHandle
l <- readMVar lcker
hPutStrLn stderr $ show ("IS CONCURRENT", cmd, l)
+ hFlush stderr
concurrentprocess
)
| otherwise = P.createProcess p