msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Handling absolute paths in prefixPathName :: String -> FilePath -> FilePath

Browse Source 
Handling absolute paths in prefixPathName :: String -> FilePath -> FilePath
(absolute paths are simply never prefixed).
This commit is contained in:
krijo
2005-01-24 15:41:16 +00:00
parent d911208046
commit 37db5016a8
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/GF/Infra/UseIO.hs
View File

@@ -94,8 +94,11 @@ pFilePaths s = case span (/=':') s of
(f,_) -> [f]
prefixPathName :: String -> FilePath -> FilePath
prefixPathName "" f = f
prefixPathName p f = p ++ "/" ++ f
prefixPathName p f = case f of
'/':_ -> f -- do not prefix [Unix style] absolute paths
_ -> case p of
"" -> f
_ -> p ++ "/" ++ f
justInitPath :: FilePath -> FilePath
justInitPath = reverse . drop 1 . dropWhile (/='/') . reverse