diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-09 15:20:50 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-09 15:20:50 +0000 |
| commit | 6edb2f075a5be472fbdf01946a2cba2c17059b49 (patch) | |
| tree | 1e4116165962f04b5433613622b88a01026c9ccc /src/GF/Devel/Grammar/Compute.hs | |
| parent | 6a4218e9efebc8b037cf2410a5e07a3fb20a5069 (diff) | |
debugging new compilation
Diffstat (limited to 'src/GF/Devel/Grammar/Compute.hs')
| -rw-r--r-- | src/GF/Devel/Grammar/Compute.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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' |