From ed451653bd9fa4d835cb263c06d0ecb9133b9935 Mon Sep 17 00:00:00 2001 From: hallgren Date: Thu, 20 Oct 2011 14:36:30 +0000 Subject: Introduce an explicit error value in the Term type This makes it easier to treat run-time errors (e.g. caused by calls to Predef.error) in a way that is more typical for a lazy functional language. --- src/compiler/GF/Grammar/Grammar.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/compiler/GF/Grammar/Grammar.hs') diff --git a/src/compiler/GF/Grammar/Grammar.hs b/src/compiler/GF/Grammar/Grammar.hs index 686164539..ae29ab6d5 100644 --- a/src/compiler/GF/Grammar/Grammar.hs +++ b/src/compiler/GF/Grammar/Grammar.hs @@ -161,7 +161,7 @@ data Term = | Alts Term [(Term, Term)] -- ^ alternatives by prefix: @pre {t ; s\/c ; ...}@ | Strs [Term] -- ^ conditioning prefix strings: @strs {s ; ...}@ - + | Error String -- ^ error values returned by Predef.error deriving (Show, Eq, Ord) data Patt = -- cgit v1.2.3