diff options
Diffstat (limited to 'compiler/GHC/Types/TyThing/Ppr.hs')
| -rw-r--r-- | compiler/GHC/Types/TyThing/Ppr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Types/TyThing/Ppr.hs b/compiler/GHC/Types/TyThing/Ppr.hs index efe1a748b5..536fb63b43 100644 --- a/compiler/GHC/Types/TyThing/Ppr.hs +++ b/compiler/GHC/Types/TyThing/Ppr.hs @@ -184,7 +184,7 @@ pprTyThing ss ty_thing = case nameModule_maybe name of Just mod -> Just $ \occ -> getPprStyle $ \sty -> pprModulePrefix sty mod occ <> ppr occ - Nothing -> warnPprTrace True (ppr name) Nothing + Nothing -> warnPprTrace True "pprTyThing" (ppr name) Nothing -- Nothing is unexpected here; TyThings have External names showWithLoc :: SDoc -> SDoc -> SDoc |