From fe045070cf4333cee0e634db5c877493d1b16030 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 14 Sep 2004 17:05:46 +0000
Subject: gfcm header

---
 src/GF/Source/AbsGF.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/GF/Source/AbsGF.hs')

diff --git a/src/GF/Source/AbsGF.hs b/src/GF/Source/AbsGF.hs
index 54564c341..0a14d2e98 100644
--- a/src/GF/Source/AbsGF.hs
+++ b/src/GF/Source/AbsGF.hs
@@ -45,7 +45,7 @@ data ModBody =
   deriving (Eq,Ord,Show)
 
 data Extend =
-   Ext Ident
+   Ext [Ident]
  | NoExt
   deriving (Eq,Ord,Show)
 
@@ -86,6 +86,7 @@ data Def =
 data TopDef =
    DefCat [CatDef]
  | DefFun [FunDef]
+ | DefFunData [FunDef]
  | DefDef [Def]
  | DefData [DataDef]
  | DefTrans [Def]
@@ -155,6 +156,7 @@ data Exp =
  | EInt Integer
  | EMeta
  | EEmpty
+ | EData
  | EStrings String
  | ERecord [LocDef]
  | ETuple [TupleComp]
-- 
cgit v1.2.3