From 4500ce63167e6dce38b103090ff4e0849c9dbe45 Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 3 Dec 2007 17:40:59 +0000 Subject: started parsing GF source into the new format --- src/GF/Devel/Lookup.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/GF/Devel/Lookup.hs') diff --git a/src/GF/Devel/Lookup.hs b/src/GF/Devel/Lookup.hs index 13e854480..741c65472 100644 --- a/src/GF/Devel/Lookup.hs +++ b/src/GF/Devel/Lookup.hs @@ -31,16 +31,16 @@ lookupFunType :: GF -> Ident -> Ident -> Err Term lookupFunType = lookupJField jtype lookupLin :: GF -> Ident -> Ident -> Err Term -lookupLin = lookupJField jlin +lookupLin = lookupJField jdef lookupLincat :: GF -> Ident -> Ident -> Err Term -lookupLincat = lookupJField jlin +lookupLincat = lookupJField jtype lookupOperType :: GF -> Ident -> Ident -> Err Term lookupOperType = lookupJField jtype lookupOperDef :: GF -> Ident -> Ident -> Err Term -lookupOperDef = lookupJField jlin +lookupOperDef = lookupJField jdef lookupParams :: GF -> Ident -> Ident -> Err [(Ident,Context)] lookupParams gf m c = do @@ -48,7 +48,7 @@ lookupParams gf m c = do return [(k,contextOfType t) | (k,t) <- contextOfType ty] lookupParamConstructor :: GF -> Ident -> Ident -> Err Type -lookupParamConstructor = lookupJField jlin +lookupParamConstructor = lookupJField jtype lookupParamValues :: GF -> Ident -> Ident -> Err [Term] lookupParamValues gf m c = do -- cgit v1.2.3