documenting testgf3

2 files changed, 2 insertions, 2 deletions

diff --git a/src/GF/Devel/Grammar/Compute.hs b/src/GF/Devel/Grammar/Compute.hs
index 6835fdbe1..5e465c160 100644
--- a/src/GF/Devel/Grammar/Compute.hs
+++ b/src/GF/Devel/Grammar/Compute.hs
@@ -283,7 +283,7 @@ computeTermOpt rec gr = comp where
        return $ T i cs'
 
      T i cs -> do
-       pty0 <- getTableType i
+       pty0 <- errIn (prt t) $ getTableType i
        ptyp <- comp g pty0
        case allParamValues gr ptyp of
          Ok vs -> do
diff --git a/src/GF/Devel/Grammar/Lookup.hs b/src/GF/Devel/Grammar/Lookup.hs
index 876d60d26..d8747a1e4 100644
--- a/src/GF/Devel/Grammar/Lookup.hs
+++ b/src/GF/Devel/Grammar/Lookup.hs
@@ -44,7 +44,7 @@ lookupOperType gr m c = do
   case jform ju of
     JParam -> return typePType
     _ -> case jtype ju of
-      Meta _ -> fail "no type given"
+      Meta _ -> fail ("no type given to " ++ prIdent m ++ "." ++ prIdent c)
       ty -> return ty
 ---- can't be just lookupJField jtype