diff options
| author | krasimir <krasimir@chalmers.se> | 2009-01-19 13:23:03 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-01-19 13:23:03 +0000 |
| commit | d95ca4a103c9023aa104b25acdc9c21418de6a14 (patch) | |
| tree | 7cff6e45e2dc1ba08deb503589e21770c7f239b3 /src/exper/Evaluate.hs | |
| parent | fa7ab84471652c40079e4f77d242208376c4b668 (diff) | |
refactor the GF.Grammar.Grammar syntax. The obsolete constructions are removed
Diffstat (limited to 'src/exper/Evaluate.hs')
| -rw-r--r-- | src/exper/Evaluate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |