GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-16 22:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

another attempt to get the paths handling right

Browse Source
This commit is contained in:
krasimir
2009-10-05 14:58:13 +00:00
parent be966cdda2
commit 332dbf7b9b
7 changed files with 38 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Compile/ReadFiles.hs
View File

@@ -205,7 +205,7 @@ getOptionsFromFile file = do
(\_ -> return (Bad $ "File " ++ file ++ " does not exist"))
let ls = filter (BS.isPrefixOf (BS.pack "--#")) $ BS.lines s
fs = map (BS.unpack . BS.unwords . BS.words . BS.drop 3) ls
ioeErr $ parseModuleOptions fs
ioeErr $ parseModuleOptions (dropFileName file) fs
getFilePath :: [FilePath] -> String -> IO (Maybe FilePath)
getFilePath paths file = get paths