Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Update TypeChecker.hs

Browse source
This commit is contained in:
Sebastian Selander 2023-02-27 19:38:45 +01:00 • committed by GitHub
parent bbf6e159c7
commit d23d417ff3
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/TypeChecker/TypeChecker.hs
View file

@ -109,7 +109,9 @@ checkBind (Bind n t _ args e) = do
typeEq :: Type -> Type -> Bool typeEq :: Type -> Type -> Bool
typeEq (TArr l r) (TArr l' r') = typeEq l l' && typeEq r r' typeEq (TArr l r) (TArr l' r') = typeEq l l' && typeEq r r'
typeEq (TMono a) (TMono b) = a == b typeEq (TMono a) (TMono b) = a == b
typeEq (TConstr name a) (TConstr name' b) = name == name' && and (zipWith typeEq a b) typeEq (TConstr name a) (TConstr name' b) = if length a == length b
then name == name' && and (zipWith typeEq a b)
else False
typeEq (TPol _) (TPol _) = True typeEq (TPol _) (TPol _) = True
typeEq _ _ = False typeEq _ _ = False