From 947949648f3dacffa2bb075e1bd561ba31760908 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 7 Nov 2007 16:30:56 +0000 Subject: added fields for global options and showable lincats to gfcc --- src/GF/GFCC/AbsGFCC.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/GFCC/AbsGFCC.hs') diff --git a/src/GF/GFCC/AbsGFCC.hs b/src/GF/GFCC/AbsGFCC.hs index ccf540d4e..e3b2582be 100644 --- a/src/GF/GFCC/AbsGFCC.hs +++ b/src/GF/GFCC/AbsGFCC.hs @@ -4,7 +4,7 @@ module GF.GFCC.AbsGFCC where newtype CId = CId String deriving (Eq,Ord,Show) data Grammar = - Grm CId [CId] Abstract [Concrete] + Grm CId [CId] [Flag] Abstract [Concrete] deriving (Eq,Ord,Show) data Abstract = @@ -12,7 +12,7 @@ data Abstract = deriving (Eq,Ord,Show) data Concrete = - Cnc CId [Flag] [LinDef] [LinDef] [LinDef] [LinDef] [LinDef] + Cnc CId [Flag] [LinDef] [LinDef] [LinDef] [LinDef] [LinDef] [LinDef] deriving (Eq,Ord,Show) data Flag = -- cgit v1.2.3