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

bug fix in import reading (had forgotten gfr)

Browse Source
This commit is contained in:
aarne
2007-09-12 07:53:54 +00:00
parent bc8a7b5c0c
commit 2fe0291147
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/Infra/ReadFiles.hs
View File

@@ -220,8 +220,12 @@ getImports ps = get [] where
tryRead name = do
file <- do
let file_gf = gfFile name
b <- doesFileExistPath ps file_gf -- try gf file first
if b then return file_gf else return (gfcFile name) -- gfc next
b <- doesFileExistPath ps file_gf -- try gf file first
if b then return file_gf else do
let file_gfr = gfrFile name
bb <- doesFileExistPath ps file_gfr -- gfr file next
if bb then return file_gfr else do
return (gfcFile name) -- gfc next
readFileIfPath ps $ file