diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-04-02 00:34:06 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-04-02 00:34:06 -0400 |
| commit | 9831ae65a5afefb476149645fd7df341c065754c (patch) | |
| tree | a5013be459ba78294faa9595d07e4231b3a2965f /Utility/SafeCommand.hs | |
| parent | 2658923e70a392512b06fc13f300d7d1593d9452 (diff) | |
comment
Diffstat (limited to 'Utility/SafeCommand.hs')
| -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 |