From c764a758e1a5e0eab346a2c3c88b7e8a9c64e248 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 21 Feb 2008 08:04:43 +0000 Subject: documenting testgf3 --- src/GF/Devel/Grammar/Compute.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Devel/Grammar/Compute.hs') 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 -- cgit v1.2.3