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

removed minor thing in EAdd

Browse source
This commit is contained in:
sebastianselander 2023-04-17 16:05:23 +02:00
parent a23269f907
commit 7ab0e65981
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/TypeChecker/TypeCheckerHm.hs
View file

@ -329,8 +329,8 @@ algoW = \case
err@(EAdd e0 e1) -> do err@(EAdd e0 e1) -> do
(s1, (e0', t0)) <- algoW e0 (s1, (e0', t0)) <- algoW e0
(s2, (e1', t1)) <- algoW e1 (s2, (e1', t1)) <- algoW e1
s3 <- exprErr (unify (apply s2 t0) int) err s3 <- exprErr (unify t0 int) err
s4 <- exprErr (unify (apply s3 t1) int) err s4 <- exprErr (unify t1 int) err
let comp = s4 `compose` s3 `compose` s2 `compose` s1 let comp = s4 `compose` s3 `compose` s2 `compose` s1
return return
( comp ( comp