diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-10-28 13:08:26 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-28 13:08:26 -0400 |
| commit | a48d1d2c30c722d77955989d967876e42d5e046d (patch) | |
| tree | fa16e4bd9e4c5020e7e5e44edb20c9d2f4409435 | |
| parent | 63c7d246b206e774baf3767333d170c9c74b63d9 (diff) | |
propellor spin
| -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` |