From 9cae779ac513b3bfda9a53a44b0740e7e1b50dde Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 16 Mar 2009 14:41:49 +0000 Subject: incomplete support for record types in the abstract syntax --- src/GF/Grammar/Values.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Grammar/Values.hs') diff --git a/src/GF/Grammar/Values.hs b/src/GF/Grammar/Values.hs index c83ced9df..9782db730 100644 --- a/src/GF/Grammar/Values.hs +++ b/src/GF/Grammar/Values.hs @@ -35,7 +35,7 @@ import GF.Grammar.Predef type Exp = Term -data Val = VGen Int Ident | VApp Val Val | VCn QIdent | VType | VClos Env Exp +data Val = VGen Int Ident | VApp Val Val | VCn QIdent | VRecType [(Label,Val)] | VType | VClos Env Exp deriving (Eq,Show) type Env = [(Ident,Val)] -- cgit v1.2.3