diff options
Diffstat (limited to 'src/Utility')
| -rw-r--r-- | src/Utility/ConcurrentOutput.hs | 5 |
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` |