summaryrefslogtreecommitdiff
path: root/Utility
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-04-02 00:34:06 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-04-02 00:34:06 -0400
commit9831ae65a5afefb476149645fd7df341c065754c (patch)
treea5013be459ba78294faa9595d07e4231b3a2965f /Utility
parent2658923e70a392512b06fc13f300d7d1593d9452 (diff)
comment
Diffstat (limited to 'Utility')
-rw-r--r--Utility/SafeCommand.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Utility/SafeCommand.hs b/Utility/SafeCommand.hs
index 2b9adce48..f44112b82 100644
--- a/Utility/SafeCommand.hs
+++ b/Utility/SafeCommand.hs
@@ -106,6 +106,8 @@ prop_idempotent_shellEscape_multiword s = s == (shellUnEscape . unwords . map sh
segmentXargsOrdered :: [FilePath] -> [[FilePath]]
segmentXargsOrdered = reverse . map reverse . segmentXargsUnordered
+{- Not preserving data is a little faster, and streams better when
+ - there are a great many filesnames. -}
segmentXargsUnordered :: [FilePath] -> [[FilePath]]
segmentXargsUnordered l = go l [] 0 []
where