From 52bb034d8ea07433e03de4c320db013b7c62aee7 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sun, 12 Nov 2006 13:24:13 +0000
Subject: thread EEnv into ShellState

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

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

diff --git a/src/GF/API.hs b/src/GF/API.hs
index 950fed731..9eb60ef19 100644
--- a/src/GF/API.hs
+++ b/src/GF/API.hs
@@ -154,7 +154,7 @@ optFile2grammar :: Options -> FilePath -> IOE GFGrammar
 optFile2grammar os f  
   | fileSuffix f == "gfcm" = ioeIO $ liftM firstStateGrammar $ EA.file2grammar f
   | otherwise = do
-      ((_,_,gr),_) <- compileModule os emptyShellState f
+      ((_,_,gr,_),_) <- compileModule os emptyShellState f
       ioeErr $ grammar2stateGrammar os gr
 
 optFile2grammarE :: Options -> FilePath -> IOE GFGrammar
-- 
cgit v1.2.3