summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 13:08:26 -0400
committerJoey Hess2015-10-28 13:08:26 -0400
commita48d1d2c30c722d77955989d967876e42d5e046d (patch)
treefa16e4bd9e4c5020e7e5e44edb20c9d2f4409435
parent63c7d246b206e774baf3767333d170c9c74b63d9 (diff)
propellor spin
-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`