summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 15:15:36 -0400
committerJoey Hess2015-10-28 15:15:36 -0400
commit76a84010180d17d99982880c6b1e7ae4bed82a76 (patch)
tree0a49799941bbfbd91fecb00612131ce5419cdfca
parent8719ec68887f7e0d56f7c0cd94ac5a4e0efef293 (diff)
propellor spin
-rw-r--r--src/Utility/ConcurrentOutput.hs8
1 files changed, 1 insertions, 7 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs
index 5584d7a9..3ced5083 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -85,13 +85,7 @@ takeOutputLock' block = go =<< withLock tryTakeTMVar
( havelock
, if block
then do
- hPutStrLn stderr "WAIT PROCESS"
- hFlush stderr
- (void $ P.waitForProcess h)
- `catchIO`
- (\e -> hPutStrLn stderr (show ("WAIT PROCESS failed", e)))
- hPutStrLn stderr "WAIT PROCESS done"
- hFlush stderr
+ void $ tryIO $ P.waitForProcess h
havelock
else do
withLock (`putTMVar` orig)