From 6edb2f075a5be472fbdf01946a2cba2c17059b49 Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 9 Dec 2007 15:20:50 +0000 Subject: debugging new compilation --- 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 449cd3b90..6835fdbe1 100644 --- a/src/GF/Devel/Grammar/Compute.hs +++ b/src/GF/Devel/Grammar/Compute.hs @@ -63,7 +63,7 @@ computeTermOpt rec gr = comp where ---- Computed t' -> return $ unComputed t' Vr x -> do - t' <- maybe (prtBad ("no value given to variable") x) return $ lookup x g + t' <- maybe (prtBad ("no value for variable") x) return $ lookup x g case t' of _ | t == t' -> return t _ -> comp g t' -- cgit v1.2.3