From 0166b27ee45f24fb60d79498a5d15b4f316191f3 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 27 Feb 2004 07:43:52 +0000
Subject: Started with unions.

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

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

diff --git a/src/GF/Source/AbsGF.hs b/src/GF/Source/AbsGF.hs
index 28313c5ce..d8115df26 100644
--- a/src/GF/Source/AbsGF.hs
+++ b/src/GF/Source/AbsGF.hs
@@ -41,6 +41,7 @@ data ModBody =
    MBody Extend Opens [TopDef]
  | MWith Ident [Open]
  | MReuse Ident
+ | MUnion [Included]
   deriving (Eq,Ord,Show)
 
 data Extend =
@@ -70,6 +71,11 @@ data QualOpen =
  | QOInterface
   deriving (Eq,Ord,Show)
 
+data Included =
+   IAll Ident
+ | ISome Ident [Ident]
+  deriving (Eq,Ord,Show)
+
 data Def =
    DDecl [Ident] Exp
  | DDef [Ident] Exp
-- 
cgit v1.2.3