summaryrefslogtreecommitdiff
path: root/src/Utility
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 20:17:15 -0400
committerJoey Hess2015-10-28 20:17:15 -0400
commit6de8582fbae52a389c0d391f768284d6434b1467 (patch)
tree21bbf5e0f56005f18cfcce81a72e9b6965a638e0 /src/Utility
parent7f1e82da152b8eb085e91cddc369831fbfdb7a37 (diff)
propellor spin
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.