documenting testgf3

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

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