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

Updated bug list & started working on more tests

Browse source
This commit is contained in:
sebastianselander 2023-03-06 13:04:07 +01:00
parent f5b5f11903
commit 6947614fba
11 changed files with 80 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/TypeChecker/TypeChecker.hs
View file

@ -61,7 +61,7 @@ freshenData (Data (Constr name ts) constrs) = do
where
freshenType :: Ident -> Type -> Type
freshenType iden = \case
(TPol a) -> TPol iden
(TPol _) -> TPol iden
(TArr a b) -> TArr (freshenType iden a) (freshenType iden b)
(TConstr (Constr a ts)) ->
TConstr (Constr a (map (freshenType iden) ts))