summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2015-10-28 14:43:48 -0400
committerJoey Hess2015-10-28 14:43:48 -0400
commit5aac24db607d80bd56ac76312c0c905fe806fc9c (patch)
treebff4f8ed1e567dc484281bfa3065857846531d4a
parentb20b64a3856ff9b53765bc358fc440217de7cca5 (diff)
propellor spin
-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 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