From 6a4fdd221a25527bb86e649f7b64e12e66a1291b Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 10 Nov 2003 15:59:21 +0000
Subject: Improved error msg for failed glue.

---
 src/GF/Grammar/Compute.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'src/GF')

diff --git a/src/GF/Grammar/Compute.hs b/src/GF/Grammar/Compute.hs
index 5bcc5dd1e..705b81ded 100644
--- a/src/GF/Grammar/Compute.hs
+++ b/src/GF/Grammar/Compute.hs
@@ -238,6 +238,10 @@ computeTerm gr = comp where
 
 checkNoArgVars :: Term -> Err Term
 checkNoArgVars t = case t of
-  Vr (IA _)  -> prtBad "cannot glue (+) term with run-time variable" t
-  Vr (IAV _) -> prtBad "cannot glue (+) term with run-time variable" t
+  Vr (IA _)  -> Bad $ glueErrorMsg $ prt t 
+  Vr (IAV _) -> Bad $ glueErrorMsg $ prt t 
   _ -> composOp checkNoArgVars t
+
+glueErrorMsg s = 
+  "Cannot glue (+) term with run-time variable" +++ s ++ "." ++++
+  "Use Prelude.bind instead."
-- 
cgit v1.2.3