diff options
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Grammar/Compute.hs | 8 |
1 files changed, 6 insertions, 2 deletions
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." |