mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 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
Show stats 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 [] new = [new]
segmentPaths [_] new = [new] -- optimisation
segmentPaths (l:ls) new = [found] ++ segmentPaths ls rest
segmentPaths (l:ls) new = found : segmentPaths ls rest
where
(found, rest)=partition (l `dirContains`) new