From c212633be8264ce724ad2304861ee4cf0111b70b Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 18 Jun 2007 21:21:13 +0000
Subject: fixed the mysterious "file..gfc" error

---
 src/GF/Compile/Compile.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Compile/Compile.hs')

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 ++ "... ") $ 
-- 
cgit v1.2.3