diff options
Diffstat (limited to 'compiler/deSugar/DsBinds.hs')
| -rw-r--r-- | compiler/deSugar/DsBinds.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/deSugar/DsBinds.hs b/compiler/deSugar/DsBinds.hs index 421adcaccd..f2ff5dd623 100644 --- a/compiler/deSugar/DsBinds.hs +++ b/compiler/deSugar/DsBinds.hs @@ -888,9 +888,9 @@ decomposeRuleLhs dflags orig_bndrs orig_lhs , text "Orig lhs:" <+> ppr orig_lhs , text "optimised lhs:" <+> ppr lhs2 ]) pp_bndr bndr - | isTyVar bndr = text "type variable" <+> quotes (ppr bndr) - | Just pred <- evVarPred_maybe bndr = text "constraint" <+> quotes (ppr pred) - | otherwise = text "variable" <+> quotes (ppr bndr) + | isTyVar bndr = text "type variable" <+> quotes (ppr bndr) + | isEvVar bndr = text "constraint" <+> quotes (ppr (varType bndr)) + | otherwise = text "variable" <+> quotes (ppr bndr) constructor_msg con = vcat [ text "A constructor," <+> ppr con <> |