extended functor syntax

This commit is contained in:
aarne
2007-06-19 18:12:35 +00:00
parent f30fa0b4d1
commit e3f1210369
9 changed files with 631 additions and 579 deletions

View File

@@ -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)