diff options
Diffstat (limited to 'compiler/GHC/Tc/Gen/Rule.hs')
| -rw-r--r-- | compiler/GHC/Tc/Gen/Rule.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/GHC/Tc/Gen/Rule.hs b/compiler/GHC/Tc/Gen/Rule.hs index 047c0559bf..121c43b987 100644 --- a/compiler/GHC/Tc/Gen/Rule.hs +++ b/compiler/GHC/Tc/Gen/Rule.hs @@ -167,7 +167,8 @@ tcRule (HsRule { rd_ext = ext , text "rule_ty:" <+> ppr rule_ty , text "ty_bndrs:" <+> ppr ty_bndrs , text "qtkvs ++ tpl_ids:" <+> ppr (qtkvs ++ tpl_ids) - , vcat [ ppr id <+> dcolon <+> ppr (idType id) | id <- tpl_ids ] + , text "tpl_id info:" <+> + vcat [ ppr id <+> dcolon <+> ppr (idType id) | id <- tpl_ids ] ]) -- SimplfyRule Plan, step 5 |