From 661870a6438642110b76235622c055bb0c61bcdc Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Oct 2015 14:24:01 -0400 Subject: propellor spin --- src/Utility/ConcurrentOutput.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/Utility/ConcurrentOutput.hs') diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs index 301a89bc..03771bfd 100644 --- a/src/Utility/ConcurrentOutput.hs +++ b/src/Utility/ConcurrentOutput.hs @@ -83,7 +83,11 @@ takeOutputLock' block = go =<< withLock tryTakeTMVar ( havelock , if block then do + hPutStr stderr "WAITFORPROCESS in lock" + hFlush stderr void $ P.waitForProcess h + hPutStr stderr "WAITFORPROCESS in lock done" + hFlush stderr havelock else do withLock (`putTMVar` orig) -- cgit v1.3-2-g0d8e