GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-23 01:52:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Improved error msg for failed glue.

Browse Source
This commit is contained in:
aarne
2003-11-10 15:59:21 +00:00
parent e470c6281f
commit 6a4fdd221a
2 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/GF/Grammar/Compute.hs
View File

@@ -238,6 +238,10 @@ computeTerm gr = comp where
checkNoArgVars :: Term -> Err Term checkNoArgVars :: Term -> Err Term
checkNoArgVars t = case t of checkNoArgVars t = case t of
Vr (IA _) -> prtBad "cannot glue (+) term with run-time variable" t Vr (IA _) -> Bad $ glueErrorMsg $ prt t
Vr (IAV _) -> prtBad "cannot glue (+) term with run-time variable" t Vr (IAV _) -> Bad $ glueErrorMsg $ prt t
_ -> composOp checkNoArgVars t _ -> composOp checkNoArgVars t
glueErrorMsg s =
"Cannot glue (+) term with run-time variable" +++ s ++ "." ++++
"Use Prelude.bind instead."

2
src/Today.hs
View File

@@ -1 +1 @@
module Today where today = "Mon Nov 10 17:00:26 CET 2003" module Today where today = "Mon Nov 10 17:40:41 CET 2003"