From df2c63c5596db36f0c1899cced6b7ee2e946741e Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Wed, 29 Sep 2004 08:27:28 +0000
Subject: Updated to latest CFG specification from gfc2java

---
 src/GF/CFGM/AbsCFG.hs | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

(limited to 'src/GF/CFGM/AbsCFG.hs')

diff --git a/src/GF/CFGM/AbsCFG.hs b/src/GF/CFGM/AbsCFG.hs
index c709aee38..61a6154f5 100644
--- a/src/GF/CFGM/AbsCFG.hs
+++ b/src/GF/CFGM/AbsCFG.hs
@@ -37,14 +37,28 @@ data Name =
   deriving (Eq,Ord,Show)
 
 data Category =
-   Category IdentParam Ident [Param]
+   Category IdentParam Ident [Proj]
   deriving (Eq,Ord,Show)
 
 data IdentParam =
-   IdentParam Ident [Param]
+   IdentParam Ident [Field]
+  deriving (Eq,Ord,Show)
+
+data Field =
+   Field KeyValue
+  deriving (Eq,Ord,Show)
+
+data Proj =
+   Proj Param
+  deriving (Eq,Ord,Show)
+
+data KeyValue =
+   KeyValue Ident Param
   deriving (Eq,Ord,Show)
 
 data Param =
-   Param Ident
+   ParamSimple Ident
+ | ParamPatt Ident [Param]
+ | ParamRec [KeyValue]
   deriving (Eq,Ord,Show)
 
-- 
cgit v1.2.3