diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-10-28 15:12:23 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-28 15:12:23 -0400 |
| commit | 8719ec68887f7e0d56f7c0cd94ac5a4e0efef293 (patch) | |
| tree | 66753999fb0315b068a94dc7f3d7d1852e0bf886 /src | |
| parent | 24b25e64259e5370326a88fc23bf4ee27c2c44fd (diff) | |
propellor spin
Diffstat (limited to 'src')
| -rw-r--r-- | src/Utility/ConcurrentOutput.hs | 4 |
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 |