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

bud fix in reading gfc without gfr

Browse Source
This commit is contained in:
aarne
2007-09-17 06:58:41 +00:00
parent 133b716338
commit c27087d14d
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/GF/Compile/Compile.hs
View File

@@ -215,9 +215,13 @@ compileOne opts env@((_,srcgr,cancgr0,eenv),_) file = do
--- hack fix to a bug in ReadFiles with reused concrete --- hack fix to a bug in ReadFiles with reused concrete
b <- ioeIO $ doesFileExist file let modu = unsuffixFile file
if not b b1 <- ioeIO $ doesFileExist file
then compileOne opts env $ gfcFile $ unsuffixFile file b2 <- ioeIO $ doesFileExist $ gfrFile modu
if not b1
then if b2
then compileOne opts env $ gfrFile $ modu
else compileOne opts env $ gfcFile $ modu
else do else do
sm0 <- putpOpt ("- parsing" +++ file) ("- compiling" +++ file ++ "... ") $ sm0 <- putpOpt ("- parsing" +++ file) ("- compiling" +++ file ++ "... ") $