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

simplifiy

Browse source
This commit is contained in:
Joey Hess 2010-11-17 13:46:50 -04:00
parent 535755cf12
commit ab55689164
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Utility.hs
View file

@ -39,8 +39,7 @@ parentDir dir =
then slash ++ (join s $ take ((length dirs) - 1) dirs)
else ""
where
dirs = filter (\x -> length x > 0) $
split s dir
dirs = filter (\x -> not $ null x) $ split s dir
slash = if (not $ isAbsolute dir) then "" else s
s = [pathSeparator]