Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
3c916162
Commit
3c916162
authored
Nov 01, 2019
by
Richard Eisenberg
Committed by
Marge Bot
Nov 02, 2019
Browse files
Update Note references -- comments only
Follow-on from !2041.
parent
182b1199
Pipeline
#12123
failed with stages
in 535 minutes and 21 seconds
Changes
1
Pipelines
4
Hide whitespace changes
Inline
Side-by-side
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'
...
...
Marge Bot
💬
@marge-bot
mentioned in merge request
!2059 (closed)
·
Nov 03, 2019
mentioned in merge request
!2059 (closed)
mentioned in merge request !2059
Toggle commit list
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment