diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-10-28 14:43:48 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-10-28 14:43:48 -0400 |
| commit | 5aac24db607d80bd56ac76312c0c905fe806fc9c (patch) | |
| tree | bff4f8ed1e567dc484281bfa3065857846531d4a /src/Utility | |
| parent | b20b64a3856ff9b53765bc358fc440217de7cca5 (diff) | |
propellor spin
Diffstat (limited to 'src/Utility')
| -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 4d74e090..a66180d2 100644 --- a/src/Utility/ConcurrentOutput.hs +++ b/src/Utility/ConcurrentOutput.hs @@ -295,7 +295,7 @@ addBuffer (toh, Output b) buf return ((toh, InTempFile tmp) : other) where !b' = B.concat (mapMaybe getOutput this) <> b - (this, other) = partition same buf + !(this, other) = partition same buf same v = fst v == toh && case snd v of Output _ -> True _ -> False |