From 91217a9642962476a736f6179d0803ddb787c2b9 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Wed, 16 Dec 2015 05:40:17 -0500
Subject: Types: Add Outputable[Bndr] DocName instances

---
 haddock-api/src/Haddock/Types.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'haddock-api/src')

diff --git a/haddock-api/src/Haddock/Types.hs b/haddock-api/src/Haddock/Types.hs
index 6305dba1..6f9b64dd 100644
--- a/haddock-api/src/Haddock/Types.hs
+++ b/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
-- 
cgit v1.2.3