summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Utility/ConcurrentOutput.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs
index a1a8898d..a3cc54d2 100644
--- a/src/Utility/ConcurrentOutput.hs
+++ b/src/Utility/ConcurrentOutput.hs
@@ -115,8 +115,11 @@ updateOutputLocker :: Locker -> IO ()
updateOutputLocker l = do
lcker <- outputLockedBy <$> getOutputHandle
void $ tryTakeMVar lcker
+ hPutStrLn stderr $ show ("SETTING LOCKER")
+ hFlush stderr
putMVar lcker l
- modifyMVar_ lcker (const $ return l)
+ hPutStrLn stderr $ show ("SETTING LOCKER DONE")
+ hFlush stderr
-- | Use this around any IO actions that use `outputConcurrent`
-- or `createProcessConcurrent`