GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki 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 a6f4fd6da3
commit 8425fe4a87
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