diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-07 16:30:56 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-07 16:30:56 +0000 |
| commit | 947949648f3dacffa2bb075e1bd561ba31760908 (patch) | |
| tree | 8573f08513bcd59613df8fc9d0a382fd17090f53 /src/GF/GFCC/AbsGFCC.hs | |
| parent | 0be4e801f45e7ec4b2d75575c0cf36053cc62754 (diff) | |
added fields for global options and showable lincats to gfcc
Diffstat (limited to 'src/GF/GFCC/AbsGFCC.hs')
| -rw-r--r-- | src/GF/GFCC/AbsGFCC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 = |