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

micro-opt

Browse source
This commit is contained in:
Joey Hess 2015-04-01 23:14:59 -04:00
parent 8b6013dad4
commit 6dd13d2684
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Utility/Path.hs
View file

@ -178,7 +178,7 @@ prop_relPathDirToFile_regressionTest = same_dir_shortcurcuits_at_difference
segmentPaths :: [FilePath] -> [FilePath] -> [[FilePath]] segmentPaths :: [FilePath] -> [FilePath] -> [[FilePath]]
segmentPaths [] new = [new] segmentPaths [] new = [new]
segmentPaths [_] new = [new] -- optimisation segmentPaths [_] new = [new] -- optimisation
segmentPaths (l:ls) new = [found] ++ segmentPaths ls rest segmentPaths (l:ls) new = found : segmentPaths ls rest
where where
(found, rest)=partition (l `dirContains`) new (found, rest)=partition (l `dirContains`) new