summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 15:08:38 -0400
committerJoey Hess2015-10-28 15:08:38 -0400
commit24b25e64259e5370326a88fc23bf4ee27c2c44fd (patch)
tree8e37c753443841c1207d293957cddc2cad956799
parent05988b52af22fb12ea0e896692d3990ea138cd07 (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 3c072cf4..be5fb8d3 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -85,7 +85,11 @@ takeOutputLock' block = go =<< withLock tryTakeTMVar
( havelock
, if block
then do
+ hPutStrLn stderr "WAIT PROCESS"
+ hFlush stderr
void $ P.waitForProcess h
+ hPutStrLn stderr "WAIT PROCESS done"
+ hFlush stderr
havelock
else do
withLock (`putTMVar` orig)