From 1bf0acb2be274e28f6479dfc9de3a6807896618d Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 17 Sep 2007 06:58:41 +0000 Subject: [PATCH] bud fix in reading gfc without gfr --- src/GF/Compile/Compile.hs | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs index dd806b646..00b89ec59 100644 --- a/src/GF/Compile/Compile.hs +++ b/src/GF/Compile/Compile.hs @@ -215,9 +215,13 @@ compileOne opts env@((_,srcgr,cancgr0,eenv),_) file = do --- hack fix to a bug in ReadFiles with reused concrete - b <- ioeIO $ doesFileExist file - if not b - then compileOne opts env $ gfcFile $ unsuffixFile file + let modu = unsuffixFile file + b1 <- ioeIO $ doesFileExist 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 sm0 <- putpOpt ("- parsing" +++ file) ("- compiling" +++ file ++ "... ") $