summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 14:24:01 -0400
committerJoey Hess2015-10-28 14:24:01 -0400
commit661870a6438642110b76235622c055bb0c61bcdc (patch)
tree42deabc0c9737775d5701923d60af9d2240fbbaf
parent99ae20dedef013397d9d9febf3beb71061491f86 (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 301a89bc..03771bfd 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -83,7 +83,11 @@ takeOutputLock' block = go =<< withLock tryTakeTMVar
( havelock
, if block
then do
+ hPutStr stderr "WAITFORPROCESS in lock"
+ hFlush stderr
void $ P.waitForProcess h
+ hPutStr stderr "WAITFORPROCESS in lock done"
+ hFlush stderr
havelock
else do
withLock (`putTMVar` orig)