msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Added dir for parsing.

Browse Source
This commit is contained in:
aarne
2003-10-02 06:37:34 +00:00
parent c985dab565
commit be81ac50a9
6 changed files with 21 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/GF/Grammar/LookAbs.hs
View File

@@ -13,7 +13,7 @@ import Monad
type GFCGrammar = C.CanonGrammar
lookupAbsDef :: GFCGrammar -> Ident -> Ident -> Err (Maybe Term)
lookupAbsDef gr m c = do
lookupAbsDef gr m c = errIn ("looking up absdef of" +++ prt c) $ do
mi <- lookupModule gr m
case mi of
ModMod mo -> do
@@ -25,7 +25,7 @@ lookupAbsDef gr m c = do
_ -> Bad $ prt m +++ "is not an abstract module"
lookupFunType :: GFCGrammar -> Ident -> Ident -> Err Type
lookupFunType gr m c = do
lookupFunType gr m c = errIn ("looking up funtype of" +++ prt c) $ do
mi <- lookupModule gr m
case mi of
ModMod mo -> do
@@ -37,7 +37,7 @@ lookupFunType gr m c = do
_ -> Bad $ prt m +++ "is not an abstract module"
lookupCatContext :: GFCGrammar -> Ident -> Ident -> Err Context
lookupCatContext gr m c = do
lookupCatContext gr m c = errIn ("looking up context of cat" +++ prt c) $ do
mi <- lookupModule gr m
case mi of
ModMod mo -> do