From d95ca4a103c9023aa104b25acdc9c21418de6a14 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 19 Jan 2009 13:23:03 +0000
Subject: refactor the GF.Grammar.Grammar syntax. The obsolete constructions
 are removed

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

(limited to 'src/exper/Evaluate.hs')

diff --git a/src/exper/Evaluate.hs b/src/exper/Evaluate.hs
index 7c5fb4b6a..413c82402 100644
--- a/src/exper/Evaluate.hs
+++ b/src/exper/Evaluate.hs
@@ -386,7 +386,7 @@ evalConcrete gr mo = mapMTree evaldef mo where
     Bad s -> raise s
 
   noExpand p = errVal False $ do
-    mo <- lookupModMod gr p
+    mo <- lookupModule gr p
     return $ case getOptVal (iOpts (flags mo)) useOptimizer of
       Just "noexpand" -> True
       _ -> False
-- 
cgit v1.2.3