diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-10-28 20:17:15 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-28 20:17:15 -0400 |
| commit | 6de8582fbae52a389c0d391f768284d6434b1467 (patch) | |
| tree | 21bbf5e0f56005f18cfcce81a72e9b6965a638e0 /src | |
| parent | 7f1e82da152b8eb085e91cddc369831fbfdb7a37 (diff) | |
propellor spin
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. |