From 1efb265000b19f65b18980e61955d11afd67bcba Mon Sep 17 00:00:00 2001 From: peb Date: Fri, 18 Jun 2004 14:23:15 +0000 Subject: *** empty log message *** --- src/GF/Grammar/LookAbs.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Grammar/LookAbs.hs') 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 -- cgit v1.2.3