From bc05653e825e082b70eebf2f420eb5a97610f56c Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 4 Feb 2005 19:17:57 +0000
Subject: resources and new instantiation syntax

---
 src/GF/Source/AbsGF.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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

diff --git a/src/GF/Source/AbsGF.hs b/src/GF/Source/AbsGF.hs
index 4bdc4c6fb..c8b218c2a 100644
--- a/src/GF/Source/AbsGF.hs
+++ b/src/GF/Source/AbsGF.hs
@@ -54,6 +54,7 @@ data ModType =
 data ModBody =
    MBody Extend Opens [TopDef]
  | MWith Ident [Open]
+ | MWithE [Ident] Ident [Open]
  | MReuse Ident
  | MUnion [Included]
   deriving (Eq,Ord,Show)
@@ -65,7 +66,7 @@ data Extend =
 
 data Opens =
    NoOpens
- | Opens [Open]
+ | OpenIn [Open]
   deriving (Eq,Ord,Show)
 
 data Open =
@@ -138,7 +139,7 @@ data DataConstr =
   deriving (Eq,Ord,Show)
 
 data ParDef =
-   ParDef Ident [ParConstr]
+   ParDefDir Ident [ParConstr]
  | ParDefIndir Ident Ident
  | ParDefAbs Ident
   deriving (Eq,Ord,Show)
-- 
cgit v1.2.3