diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Utility/ConcurrentOutput.hs | 2 |
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. |