From e3f12103697e5eb9caada06134ba9aba01333928 Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 19 Jun 2007 18:12:35 +0000 Subject: extended functor syntax --- src/GF/Source/AbsGF.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src/GF/Source/AbsGF.hs') diff --git a/src/GF/Source/AbsGF.hs b/src/GF/Source/AbsGF.hs index 1ffba4267..e6b389576 100644 --- a/src/GF/Source/AbsGF.hs +++ b/src/GF/Source/AbsGF.hs @@ -38,9 +38,12 @@ data ModType = deriving (Eq,Ord,Show) data ModBody = - MBody Extend Opens [TopDef] - | MWith Ident [Open] - | MWithE [Included] Ident [Open] + MNoBody [Included] + | MWithBody Included [Open] Opens [TopDef] + | MWithEBody [Included] Included [Open] Opens [TopDef] + | MBody Extend Opens [TopDef] + | MWith Included [Open] + | MWithE [Included] Included [Open] | MReuse Ident | MUnion [Included] deriving (Eq,Ord,Show) -- cgit v1.2.3