diff options
Diffstat (limited to 'Utility.hs')
-rw-r--r-- | Utility.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility.hs b/Utility.hs index dea53967f..349dd9355 100644 --- a/Utility.hs +++ b/Utility.hs @@ -34,7 +34,8 @@ hGetContentsStrict h = hGetContents h >>= \s -> length s `seq` return s parentDir :: String -> String parentDir dir = if length dirs > 0 - then "/" ++ (join "/" $ take ((length dirs) - 1) dirs) + then absolute ++ (join "/" $ take ((length dirs) - 1) dirs) else "" where dirs = filter (\x -> length x > 0) $ split "/" dir + absolute = if ((dir !! 0) == '/') then "/" else "" |