Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
obsidiansystems
GHC
Commits
db71d971
Commit
db71d971
authored
Oct 14, 2016
by
Simon Peyton Jones
Browse files
Reduce trace output slightly
parent
17907626
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/typecheck/TcSMonad.hs
View file @
db71d971
...
...
@@ -3107,13 +3107,11 @@ matchFam tycon args = wrapTcS $ matchFamTcM tycon args
matchFamTcM
::
TyCon
->
[
Type
]
->
TcM
(
Maybe
(
Coercion
,
TcType
))
-- Given (F tys) return (ty, co), where co :: F tys ~ ty
matchFamTcM
tycon
args
=
do
{
fam_envs
@
(
_
,
lcl
)
<-
FamInst
.
tcGetFamInstEnvs
;
let
match_fam_result
=
do
{
let
match_fam_result
=
reduceTyFamApp_maybe
fam_envs
Nominal
tycon
args
;
TcM
.
traceTc
"matchFamTcM"
$
vcat
[
text
"Matching:"
<+>
ppr
(
mkTyConApp
tycon
args
)
,
ppr_res
match_fam_result
,
text
"Lcl fam env:"
<+>
ppr
lcl
]
,
ppr_res
match_fam_result
]
;
return
match_fam_result
}
where
ppr_res
Nothing
=
text
"Match failed"
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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