From 5aac24db607d80bd56ac76312c0c905fe806fc9c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 28 Oct 2015 14:43:48 -0400 Subject: propellor spin --- src/Utility/ConcurrentOutput.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Utility') 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 -- cgit v1.3-2-g0d8e