From 6de8582fbae52a389c0d391f768284d6434b1467 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Oct 2015 20:17:15 -0400 Subject: propellor spin --- src/Utility/ConcurrentOutput.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Utility') diff --git a/src/Utility/ConcurrentOutput.hs b/src/Utility/ConcurrentOutput.hs index 3f28068a..20c60ba8 100644 --- a/src/Utility/ConcurrentOutput.hs +++ b/src/Utility/ConcurrentOutput.hs @@ -117,7 +117,7 @@ flushConcurrentOutput = do atomically $ do r <- takeTMVar v if r == S.empty - then return () + then putTMVar v r else retry -- Take output lock to ensure that nothing else is currently -- generating output, and flush any buffered output. -- cgit v1.2.3