summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 15:12:23 -0400
committerJoey Hess2015-10-28 15:12:23 -0400
commit8719ec68887f7e0d56f7c0cd94ac5a4e0efef293 (patch)
tree66753999fb0315b068a94dc7f3d7d1852e0bf886
parent24b25e64259e5370326a88fc23bf4ee27c2c44fd (diff)
propellor spin
-rw-r--r--src/Utility/ConcurrentOutput.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs
index be5fb8d3..5584d7a9 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -87,7 +87,9 @@ takeOutputLock' block = go =<< withLock tryTakeTMVar
then do
hPutStrLn stderr "WAIT PROCESS"
hFlush stderr
- void $ P.waitForProcess h
+ (void $ P.waitForProcess h)
+ `catchIO`
+ (\e -> hPutStrLn stderr (show ("WAIT PROCESS failed", e)))
hPutStrLn stderr "WAIT PROCESS done"
hFlush stderr
havelock