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

fix parentDir to work for relative too

Browse source
This commit is contained in:
Joey Hess 2010-10-13 01:49:21 -04:00
parent 4ecebfb218
commit 77d052af3c
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
Utility.hs
View file

@ -34,7 +34,8 @@ hGetContentsStrict h = hGetContents h >>= \s -> length s `seq` return s
parentDir :: String -> String parentDir :: String -> String
parentDir dir = parentDir dir =
if length dirs > 0 if length dirs > 0
then "/" ++ (join "/" $ take ((length dirs) - 1) dirs) then absolute ++ (join "/" $ take ((length dirs) - 1) dirs)
else "" else ""
where where
dirs = filter (\x -> length x > 0) $ split "/" dir dirs = filter (\x -> length x > 0) $ split "/" dir
absolute = if ((dir !! 0) == '/') then "/" else ""