diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-10-28 15:15:36 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-28 15:15:36 -0400 |
| commit | 76a84010180d17d99982880c6b1e7ae4bed82a76 (patch) | |
| tree | 0a49799941bbfbd91fecb00612131ce5419cdfca /src/Utility | |
| parent | 8719ec68887f7e0d56f7c0cd94ac5a4e0efef293 (diff) | |
propellor spin
Diffstat (limited to 'src/Utility')
| -rw-r--r-- | src/Utility/ConcurrentOutput.hs | 8 |
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) |