From be6465a2ebb1aba43433cff29bf5bad6e2065e26 Mon Sep 17 00:00:00 2001 From: krasimir Date: Sun, 31 Jan 2010 15:54:25 +0000 Subject: refactor GF.Infra.Modules for better error messages --- src/compiler/GF/Grammar/Lookup.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/compiler/GF/Grammar/Lookup.hs') diff --git a/src/compiler/GF/Grammar/Lookup.hs b/src/compiler/GF/Grammar/Lookup.hs index 074f0c5ec..d56c1ee30 100644 --- a/src/compiler/GF/Grammar/Lookup.hs +++ b/src/compiler/GF/Grammar/Lookup.hs @@ -55,7 +55,7 @@ lookupIdent c t = Ok v -> return v Bad _ -> Bad ("unknown identifier" +++ showIdent c) -lookupIdentInfo :: ModInfo Ident a -> Ident -> Err a +lookupIdentInfo :: ModInfo a -> Ident -> Err a lookupIdentInfo mo i = lookupIdent i (jments mo) lookupResDef :: SourceGrammar -> Ident -> Ident -> Err Term -- cgit v1.2.3