Skip to content

GHC
GHC
Commit 3c916162 authored by Richard Eisenberg's avatar Richard Eisenberg Committed by Marge Bot
1 Browse files
Options

Update Note references -- comments only 

Follow-on from !2041.
parent 182b1199
Pipeline #12123 failed with stages
                  in 535 minutes and 21 seconds
                  Hide whitespace changes
                  Inline Side-by-side
                  Showing with 2 additions and 2 deletions
                  compiler/types/Unify.hs
                  View file @ 3c916162
                  ......@@ -962,7 +962,7 @@ unify_ty env ty1 ty2 kco
                  | Just ty2' <- tcView ty2 = unify_ty env ty1 ty2' kco
                  | CastTy ty1' co <- ty1 = if um_unif env
                  then unify_ty env ty1' ty2 (co `mkTransCo` kco)
                  else -- See Note [Matching in the presence of casts]
                  else -- See Note [Matching in the presence of casts (1)]
                  do { subst <- getSubst env
                  ; let co' = substCo subst co
                  ; unify_ty env ty1' ty2 (co' `mkTransCo` kco) }
                  ......@@ -1422,7 +1422,7 @@ ty_co_match menv subst ty co lkco rkco
                  ty_co_match menv subst ty co lkco rkco
                  | CastTy ty' co' <- ty
                  -- See Note [Matching in the presence of casts]
                  -- See Note [Matching in the presence of casts (1)]
                  = let empty_subst = mkEmptyTCvSubst (rnInScopeSet (me_env menv))
                  substed_co_l = substCo (liftEnvSubstLeft empty_subst subst) co'
                  substed_co_r = substCo (liftEnvSubstRight empty_subst subst) co'
                  ......
                  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