From 2433403b6247022ac56133ca935307868fcef6b9 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 24 Mar 2004 15:31:38 +0000
Subject: Making cf2gf to work...

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

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

diff --git a/src/GF/Compile/GetGrammar.hs b/src/GF/Compile/GetGrammar.hs
index f5698bb9c..58ce8d62b 100644
--- a/src/GF/Compile/GetGrammar.hs
+++ b/src/GF/Compile/GetGrammar.hs
@@ -88,7 +88,7 @@ getCFGrammar :: Options -> FilePath -> IOE SourceGrammar
 getCFGrammar opts file = do
   let mo = takeWhile (/='-') file
   s    <- ioeIO $ readFileIf file
-  cf   <- ioeErr $ pCF mo file
+  cf   <- ioeErr $ pCF mo s
   defs <- return $ cf2grammar cf
   let g = A.OldGr A.NoIncl defs
   ioeErr $ transOldGrammar opts file g
-- 
cgit v1.2.3