From 76a84010180d17d99982880c6b1e7ae4bed82a76 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Oct 2015 15:15:36 -0400 Subject: propellor spin --- src/Utility/ConcurrentOutput.hs | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'src/Utility/ConcurrentOutput.hs') 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) -- cgit v1.3-2-g0d8e