From b30e817e55f0b3b3934c8ac11c2bac5ad2568ab9 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 22 Feb 2006 22:29:11 +0000 Subject: tram using compiled resources --- src/GF/Grammar/Lookup.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Grammar') diff --git a/src/GF/Grammar/Lookup.hs b/src/GF/Grammar/Lookup.hs index 4123f450f..6c6f13611 100644 --- a/src/GF/Grammar/Lookup.hs +++ b/src/GF/Grammar/Lookup.hs @@ -34,7 +34,7 @@ import Data.List (nub) import Control.Monad lookupResDef :: SourceGrammar -> Ident -> Ident -> Err Term -lookupResDef gr = look True where +lookupResDef gr m c = look True m c where look isTop m c = do mi <- lookupModule gr m case mi of -- cgit v1.2.3