fixed the mysterious "file..gfc" error

2007-06-18 21:21:13 +00:00
parent 6b99696e86
commit c212633be8
4 changed files with 322 additions and 240 deletions
--- a/src/GF/Compile/Compile.hs
+++ b/src/GF/Compile/Compile.hs
@@ -217,7 +217,7 @@ compileOne opts env@((_,srcgr,cancgr0,eenv),_) file = do

      b <- ioeIO $ doesFileExist file
      if not b 
-        then compileOne opts env $ gfcFile (init (init file))
+        then compileOne opts env $ gfcFile $ unsuffixFile file
        else do

       sm0 <- putpOpt ("- parsing" +++ file) ("- compiling" +++ file ++ "... ") $