diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-03 17:40:59 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-03 17:40:59 +0000 |
| commit | 4500ce63167e6dce38b103090ff4e0849c9dbe45 (patch) | |
| tree | bf7180d9844dd64878916545ab82719e81ef4391 /src/GF/Devel/Lookup.hs | |
| parent | cea1946f3f91fc3c25b698bf87d0a443b865f4be (diff) | |
started parsing GF source into the new format
Diffstat (limited to 'src/GF/Devel/Lookup.hs')
| -rw-r--r-- | src/GF/Devel/Lookup.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |