diff options
| author | kr_angelov <kr_angelov@gmail.com> | 2006-12-28 16:35:16 +0000 |
|---|---|---|
| committer | kr_angelov <kr_angelov@gmail.com> | 2006-12-28 16:35:16 +0000 |
| commit | 48b4e3de1dd02a9956a7a051ea5c44fb24b6130a (patch) | |
| tree | 292dd64ddffd9feb9f0eef12c0f72eb56a5171cf /src/GF/Canon/GFCC/AbsGFCC.hs | |
| parent | 46c8026b9d7e5f6d061b7dd340bfeb4a012b07c8 (diff) | |
simplify GFCC syntax
Diffstat (limited to 'src/GF/Canon/GFCC/AbsGFCC.hs')
| -rw-r--r-- | src/GF/Canon/GFCC/AbsGFCC.hs | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/src/GF/Canon/GFCC/AbsGFCC.hs b/src/GF/Canon/GFCC/AbsGFCC.hs index af9f18088..ccb964689 100644 --- a/src/GF/Canon/GFCC/AbsGFCC.hs +++ b/src/GF/Canon/GFCC/AbsGFCC.hs @@ -47,24 +47,19 @@ data Term = R [Term] | P Term Term | S [Term] - | K Tokn - | V Integer - | C Integer + | KS String + | KP [String] [Variant] + | V Int + | C Int | F CId | FV [Term] - | W String Term + | W String [String] | RP Term Term | TM | L CId Term | BV CId deriving (Eq,Ord,Show) -data Tokn = - KS String - | KP [String] [Variant] - deriving (Eq,Ord,Show) - data Variant = Var [String] [String] deriving (Eq,Ord,Show) - |