Types: Add Outputable[Bndr] DocName instances

haddock-api/src/Haddock/Types.hs

@@ -286,6 +286,14 @@ instance NamedThing DocName where
   getName (Documented name _) = name
   getName (Undocumented name) = name
 
+-- | Useful for debugging
+instance Outputable DocName where
+  ppr = ppr . getName
+
+instance OutputableBndr DocName where
+  pprBndr _ = ppr . getName
+  pprPrefixOcc = pprPrefixOcc . getName
+  pprInfixOcc = pprInfixOcc . getName
 
 -----------------------------------------------------------------------------
 -- * Instances