diff options
Diffstat (limited to 'src/HaddockTypes.hs')
| -rw-r--r-- | src/HaddockTypes.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/HaddockTypes.hs b/src/HaddockTypes.hs index ae9c3d8b..5dace7b8 100644 --- a/src/HaddockTypes.hs +++ b/src/HaddockTypes.hs @@ -140,3 +140,13 @@ data DocMarkup id a = Markup { markupURL :: String -> a, markupAName :: String -> a } + +instance (Outputable a, OutputableBndr a) => Outputable (ExportItem2 a) where + ppr (ExportDecl2 n decl doc instns) = text "ExportDecl" <+> ppr n <+> ppr decl <+> ppr doc <+> ppr instns + ppr (ExportNoDecl2 n1 n2 ns) = text "ExportNoDecl (org name, link name, sub names)" <+> ppr n1 <+> ppr n2 <+> ppr ns + ppr (ExportGroup2 lev id doc) = text "ExportGroup (lev, id, doc)" <+> ppr lev <+> ppr doc + ppr (ExportDoc2 doc) = text "ExportDoc" <+> ppr doc + ppr (ExportModule2 mod) = text "ExportModule" <+> ppr mod + +instance OutputableBndr DocName where + pprBndr _ d = ppr d |