diff options
| author | aarne <unknown> | 2004-02-27 07:43:52 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-02-27 07:43:52 +0000 |
| commit | 0166b27ee45f24fb60d79498a5d15b4f316191f3 (patch) | |
| tree | 72a5c1aa21ee0856ce1a621d094471d056040385 /src/GF/Source/AbsGF.hs | |
| parent | 2e1b57878329eb6a1822ef43c190f8a2aaaa82b7 (diff) | |
Started with unions.
Diffstat (limited to 'src/GF/Source/AbsGF.hs')
| -rw-r--r-- | src/GF/Source/AbsGF.hs | 6 |
1 files changed, 6 insertions, 0 deletions
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 |