Commit 4b6b4d23 authored by chak@cse.unsw.edu.au.'s avatar chak@cse.unsw.edu.au.
Browse files

Adapt FC-code in TcUnify to pre-subsumption

Wed Sep 20 04:01:18 EDT 2006  Manuel M T Chakravarty <chak@cse.unsw.edu.au>
  * Adapt FC-code in TcUnify to pre-subsumption
parent 54c309c0
......@@ -699,11 +699,10 @@ tc_sub1 mb_fun act_sty actual_ty exp_ib exp_sty expected_ty
; traceTc (text "tc_sub_spec" <+> vcat [ppr actual_ty,
ppr tyvars <+> ppr theta <+> ppr tau,
ppr tau'])
; 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
; co_fn1 <- instCall InstSigOrigin (mkTyVarTys tyvars) theta
; co_fn2 <- tc_sub False tau tau exp_sty expected_ty
; co_fn1 <- instCall InstSigOrigin inst_tys (substTy subst' theta)
; 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