Skip to content

GitLab

Commit 8053aac5 authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.
Browse files

Correct substitution into theta types (after merge)

parent 574022a8
Hide whitespace changes
Inline Side-by-side
compiler/typecheck/TcUnify.lhs
View file @ 8053aac5
...@@ -702,7 +702,7 @@ tc_sub1 mb_fun act_sty actual_ty exp_ib exp_sty expected_ty ...@@ -702,7 +702,7 @@ tc_sub1 mb_fun act_sty actual_ty exp_ib exp_sty expected_ty
; co_fn2 <- tc_sub mb_fun tau' tau' exp_ib exp_sty expected_ty ; co_fn2 <- tc_sub mb_fun tau' tau' exp_ib exp_sty expected_ty
-- Deal with the dictionaries -- Deal with the dictionaries
; co_fn1 <- instCall InstSigOrigin inst_tys (substTy subst' theta) ; co_fn1 <- instCall InstSigOrigin inst_tys (substTheta subst' theta)
; return (co_fn2 <.> co_fn1) } ; return (co_fn2 <.> co_fn1) }
----------------------------------- -----------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment