mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

minor opt

Browse source
This commit is contained in:
Joey Hess 2015-04-02 00:33:08 -04:00
parent 7b32e7acb5
commit ee4af54005
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Utility/SafeCommand.hs
View file

@ -111,7 +111,7 @@ segmentXargsUnordered l = go l [] 0 []
where where
go [] c _ r = (c:r) go [] c _ r = (c:r)
go (f:fs) c accumlen 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 | otherwise = go fs (f:c) newlen r
where where
len = length f len = length f