diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2015-12-16 05:40:17 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-12-16 17:54:55 +0100 |
| commit | a45a133af1f25ce60a8d1b0750c8f3ce452129d6 (patch) | |
| tree | baf3bfe5bc3d8137ff0090feadf9981d9bc9b664 /haddock-api/src/Haddock | |
| parent | 85be6fdc7832eae3afd141229c8ac3475da8f542 (diff) | |
Types: Add Outputable[Bndr] DocName instances
Diffstat (limited to 'haddock-api/src/Haddock')
| -rw-r--r-- | haddock-api/src/Haddock/Types.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/haddock-api/src/Haddock/Types.hs b/haddock-api/src/Haddock/Types.hs index 914f00f2..b837970b 100644 --- a/haddock-api/src/Haddock/Types.hs +++ b/haddock-api/src/Haddock/Types.hs @@ -301,6 +301,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 class NamedThing name => SetName name where |