diff options
| author | davve@dtek.chalmers.se <David Waern> | 2007-03-25 00:56:53 +0000 |
|---|---|---|
| committer | davve@dtek.chalmers.se <David Waern> | 2007-03-25 00:56:53 +0000 |
| commit | f952f9d1279f1ddcf8d36d73b49c0ef9c2d2164d (patch) | |
| tree | cb050c4fca29a9d500bee1b24fda81f86a22c9c3 | |
| parent | f0199480255296e1d9e268311a22261e4884a3c6 (diff) | |
Remove ppr in HaddockTypes
| -rw-r--r-- | src/HaddockTypes.hs | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/HaddockTypes.hs b/src/HaddockTypes.hs index aebbc0ab..bdc2d9cd 100644 --- a/src/HaddockTypes.hs +++ b/src/HaddockTypes.hs @@ -121,13 +121,3 @@ data DocMarkup id a = Markup { markupURL :: String -> a, markupAName :: String -> a } - -instance (Outputable a, OutputableBndr a) => Outputable (ExportItem a) where - ppr (ExportDecl n decl doc instns) = text "ExportDecl" <+> ppr n <+> ppr decl <+> ppr doc <+> ppr instns - ppr (ExportNoDecl n1 n2 ns) = text "ExportNoDecl (org name, link name, sub names)" <+> ppr n1 <+> ppr n2 <+> ppr ns - ppr (ExportGroup lev id doc) = text "ExportGroup (lev, id, doc)" <+> ppr lev <+> ppr doc - ppr (ExportDoc doc) = text "ExportDoc" <+> ppr doc - ppr (ExportModule mod) = text "ExportModule" <+> ppr mod - -instance OutputableBndr DocName where - pprBndr _ d = ppr d |