summaryrefslogtreecommitdiff
path: root/src/Utility
diff options
context:
space:
mode:
Diffstat (limited to 'src/Utility')
-rw-r--r--src/Utility/ConcurrentOutput.hs2
1 files changed, 1 insertions, 1 deletions
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.