From 2658923e70a392512b06fc13f300d7d1593d9452 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 2 Apr 2015 00:33:08 -0400 Subject: minor opt --- Utility/SafeCommand.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Utility') diff --git a/Utility/SafeCommand.hs b/Utility/SafeCommand.hs index 59e9f5f29..2b9adce48 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 -- cgit v1.2.3