lincat typecheck and abstract-interface extension fixed

This commit is contained in:
aarne
2006-05-30 12:19:19 +00:00
parent e9ce09cb45
commit 5dc1edf50f
3 changed files with 16 additions and 8 deletions

View File

@@ -93,6 +93,9 @@ moduleDeps ms = mapM deps ms where
-- check for superficial compatibility, not submodule relation etc: what can be extended
compatMType mt0 mt = case (mt0,mt) of
(MTResource, MTConcrete _) -> True
(MTInstance _, MTConcrete _) -> True
(MTInterface, MTAbstract) -> True
(MTConcrete _, MTConcrete _) -> True
(MTInstance _, MTInstance _) -> True
(MTReuse _, MTReuse _) -> True