diff options
author | 2015-04-02 00:34:06 -0400 | |
---|---|---|
committer | 2015-04-02 00:34:06 -0400 | |
commit | 9831ae65a5afefb476149645fd7df341c065754c (patch) | |
tree | a5013be459ba78294faa9595d07e4231b3a2965f | |
parent | 2658923e70a392512b06fc13f300d7d1593d9452 (diff) |
comment
-rw-r--r-- | Utility/SafeCommand.hs | 2 |
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 |