diff options
Diffstat (limited to 'compiler/GHC/Hs/Extension.hs')
| -rw-r--r-- | compiler/GHC/Hs/Extension.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/compiler/GHC/Hs/Extension.hs b/compiler/GHC/Hs/Extension.hs index 35afc5f8d3..b73855eb7a 100644 --- a/compiler/GHC/Hs/Extension.hs +++ b/compiler/GHC/Hs/Extension.hs @@ -1162,13 +1162,13 @@ type OutputableX p = -- See Note [OutputableX] -- ---------------------------------------------------------------------- -- |Constraint type to bundle up the requirement for 'OutputableBndr' on both --- the @id@ and the 'NameOrRdrName' type for it -type OutputableBndrId id = - ( OutputableBndr (NameOrRdrName (IdP id)) - , OutputableBndr (IdP id) - , OutputableBndr (NameOrRdrName (IdP (NoGhcTc id))) - , OutputableBndr (IdP (NoGhcTc id)) - , NoGhcTc id ~ NoGhcTc (NoGhcTc id) - , OutputableX id - , OutputableX (NoGhcTc id) +-- the @p@ and the 'NameOrRdrName' type for it +type OutputableBndrId pass = + ( OutputableBndr (NameOrRdrName (IdP (GhcPass pass))) + , OutputableBndr (IdP (GhcPass pass)) + , OutputableBndr (NameOrRdrName (IdP (NoGhcTc (GhcPass pass)))) + , OutputableBndr (IdP (NoGhcTc (GhcPass pass))) + , NoGhcTc (GhcPass pass) ~ NoGhcTc (NoGhcTc (GhcPass pass)) + , OutputableX (GhcPass pass) + , OutputableX (NoGhcTc (GhcPass pass)) ) |