From 24b25e64259e5370326a88fc23bf4ee27c2c44fd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Oct 2015 15:08:38 -0400 Subject: propellor spin --- src/Utility/ConcurrentOutput.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs index 3c072cf4..be5fb8d3 100644 --- a/src/Utility/ConcurrentOutput.hs +++ b/src/Utility/ConcurrentOutput.hs @@ -85,7 +85,11 @@ takeOutputLock' block = go =<< withLock tryTakeTMVar ( havelock , if block then do + hPutStrLn stderr "WAIT PROCESS" + hFlush stderr void $ P.waitForProcess h + hPutStrLn stderr "WAIT PROCESS done" + hFlush stderr havelock else do withLock (`putTMVar` orig) -- cgit v1.2.3