forked from GitHub/gf-core
lincat typecheck and abstract-interface extension fixed
This commit is contained in:
@@ -214,6 +214,7 @@ checkCncInfo gr m (a,abs) (c,info) = do
|
||||
-- cat for cf, typ for pe
|
||||
|
||||
CncCat (Yes typ) mdef mpr -> chIn "linearization type of" $ do
|
||||
checkErr $ lookupCatContextSrc gr a c
|
||||
typ' <- checkIfLinType gr typ
|
||||
mdef' <- case mdef of
|
||||
Yes def -> do
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user