Interfaces and instances by reuse.

This commit is contained in:
aarne
2004-01-09 16:40:56 +00:00
parent 412a4f0fdb
commit 52bc53dfd7
4 changed files with 79 additions and 40 deletions

View File

@@ -43,9 +43,13 @@ data ModuleType i =
| MTInterface
| MTInstance i
| MTReuse i
| MTReuse (MReuseType i)
deriving (Eq,Show)
data MReuseType i = MRInterface i | MRInstance i i | MRResource i
deriving (Show,Eq)
-- destructive update
--- dep order preserved since old cannot depend on new