From ee4af540052950c8d0c8e93c4396d48058cdc914 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 2 Apr 2015 00:33:08 -0400 Subject: [PATCH] minor opt --- Utility/SafeCommand.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Utility/SafeCommand.hs b/Utility/SafeCommand.hs index 59e9f5f292..2b9adce489 100644 --- a/Utility/SafeCommand.hs +++ b/Utility/SafeCommand.hs @@ -111,7 +111,7 @@ segmentXargsUnordered l = go l [] 0 [] where go [] c _ r = (c:r) go (f:fs) c accumlen r - | len < maxlen && newlen > maxlen = go (f:fs) [] 0 (c:r) + | newlen > maxlen && len < maxlen = go (f:fs) [] 0 (c:r) | otherwise = go fs (f:c) newlen r where len = length f