From a48d1d2c30c722d77955989d967876e42d5e046d Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 28 Oct 2015 13:08:26 -0400
Subject: propellor spin

---
 src/Utility/ConcurrentOutput.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src')

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`
-- 
cgit v1.3-2-g0d8e