From 5a7d6e542d7fc0c01bec9163e4be732ac1c6d217 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 14 Nov 2003 12:36:23 +0000
Subject: New unicodings.

New unicodings.
Module with works.

Better compilation of old GF.
---
 src/GF/Compile/GetGrammar.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/src/GF/Compile/GetGrammar.hs b/src/GF/Compile/GetGrammar.hs
index 32efb960b..ef9e0944f 100644
--- a/src/GF/Compile/GetGrammar.hs
+++ b/src/GF/Compile/GetGrammar.hs
@@ -33,11 +33,11 @@ getSourceModule file = do
 
 -- for old GF format with includes
 
-getOldGrammar :: FilePath -> IOE SourceGrammar
-getOldGrammar file = do
+getOldGrammar :: Options -> FilePath -> IOE SourceGrammar
+getOldGrammar opts file = do
   defs <- parseOldGrammarFiles file
   let g = A.OldGr A.NoIncl defs
-  ioeErr $ transOldGrammar g file
+  ioeErr $ transOldGrammar opts file g
 
 parseOldGrammarFiles :: FilePath -> IOE [A.TopDef]
 parseOldGrammarFiles file = do
-- 
cgit v1.2.3