From 9831ae65a5afefb476149645fd7df341c065754c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 2 Apr 2015 00:34:06 -0400 Subject: comment --- Utility/SafeCommand.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Utility') 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 -- cgit v1.2.3