From f17728ee55b54fb34864d1e2a6b20d7a0c9a06e5 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 21 Sep 2007 20:36:43 +0000
Subject: correctly recognize some parameter records for gfcc

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

(limited to 'src/GF/Devel/GFC.hs')

diff --git a/src/GF/Devel/GFC.hs b/src/GF/Devel/GFC.hs
index da5725d3d..f6753e31f 100644
--- a/src/GF/Devel/GFC.hs
+++ b/src/GF/Devel/GFC.hs
@@ -17,7 +17,7 @@ main = do
     _ | oElem (iOpt "-make") opts -> do
       gr <- batchCompile opts fs
       let name = justModuleName (last fs)
-      let (abs,gc) = prGrammar2gfcc name gr
+      let (abs,gc) = prGrammar2gfcc opts name gr
       let target = abs ++ ".gfcc"
       writeFile target gc
       putStrLn $ "wrote file " ++ target
-- 
cgit v1.2.3