diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-06-18 21:21:13 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-06-18 21:21:13 +0000 |
| commit | c212633be8264ce724ad2304861ee4cf0111b70b (patch) | |
| tree | a8b62c7c4f42c897d841c9c08cf2c1091cda178b /src/GF/Compile/Compile.hs | |
| parent | 6b99696e860e9d12fb3102867e622bbf828cf271 (diff) | |
fixed the mysterious "file..gfc" error
Diffstat (limited to 'src/GF/Compile/Compile.hs')
| -rw-r--r-- | src/GF/Compile/Compile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Compile/Compile.hs b/src/GF/Compile/Compile.hs index cf1c542f5..dd806b646 100644 --- 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 ++ "... ") $ |