diff options
| author | peb <unknown> | 2004-06-18 14:23:15 +0000 |
|---|---|---|
| committer | peb <unknown> | 2004-06-18 14:23:15 +0000 |
| commit | 1efb265000b19f65b18980e61955d11afd67bcba (patch) | |
| tree | ba6226670bbad398d68c1a7cb8c90b3c48756bde /src/GF/Grammar/LookAbs.hs | |
| parent | 22613ceb3772722f6e5a5a4470bedd7d6d727474 (diff) | |
*** empty log message ***
Diffstat (limited to 'src/GF/Grammar/LookAbs.hs')
| -rw-r--r-- | src/GF/Grammar/LookAbs.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Grammar/LookAbs.hs b/src/GF/Grammar/LookAbs.hs index 462a77ea8..cc414596f 100644 --- a/src/GF/Grammar/LookAbs.hs +++ b/src/GF/Grammar/LookAbs.hs @@ -25,7 +25,7 @@ lookupAbsDef gr m c = errIn ("looking up absdef of" +++ prt c) $ do _ -> Bad $ prt m +++ "is not an abstract module" lookupFunType :: GFCGrammar -> Ident -> Ident -> Err Type -lookupFunType gr m c = errIn ("looking up funtype of" +++ prt c) $ do +lookupFunType gr m c = errIn ("looking up funtype of" +++ prt c +++ "in module" +++ prt m) $ do mi <- lookupModule gr m case mi of ModMod mo -> do |