From f952f9d1279f1ddcf8d36d73b49c0ef9c2d2164d Mon Sep 17 00:00:00 2001
From: "davve@dtek.chalmers.se" <David Waern>
Date: Sun, 25 Mar 2007 00:56:53 +0000
Subject: Remove ppr in HaddockTypes

---
 src/HaddockTypes.hs | 10 ----------
 1 file changed, 10 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3