Added cardinality to type checking

This commit is contained in:
macocianradu
2021-12-01 01:40:45 +01:00
parent 9210c78beb
commit a61d547278

View File

@@ -94,7 +94,7 @@ checkExpression symbolMap (IfSimple cond ex)
-- |The unbounded or semi-bounded cardinalities already have 0 included -- |The unbounded or semi-bounded cardinalities already have 0 included
Right x -> Right x Right x -> Right x
Left err -> Left err Left err -> Left err
| otherwise = Left $ IfConditionNotBoolean $ show condType ++ " | " ++ show (getVars symbolMap) | otherwise = Left $ IfConditionNotBoolean $ show condType
where where
condType = checkExpression symbolMap cond condType = checkExpression symbolMap cond
checkedExp = checkExpression symbolMap ex checkedExp = checkExpression symbolMap ex