Remove commented-out DocEntity printing

1 files changed, 0 insertions, 16 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 5240e5c1..000c3933 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -434,19 +434,6 @@ run flags modules extEnv = do
         [] -> return ()
         fs -> let filename = (last fs) in 
               writePackageFile filename homeEnv
-{- 
-instance Outputable (DocEntity Name) where
-  ppr (DocEntity d) = ppr d
-  ppr (DeclEntity name) = ppr name
-
-instance Show Name where
-  show name = show (ppr name defaultUserStyle)
-
-instance Show a => Show (DocDecl a) where
-  show (DocCommentNext doc) = "next" ++ show doc
-  show (DocCommentPrev doc) = "prev" ++ show doc
-  show _ = "other" 
--}
 
 type CheckedMod = (Module, FilePath, FullyCheckedMod)
 
@@ -455,9 +442,6 @@ type FullyCheckedMod = (ParsedSource,
                         TypecheckedSource, 
                         ModuleInfo)
 
---printEntity (DocEntity doc) = show doc
---printEntity (DeclEntity name) = show $ ppr name defaultUserStyle
-
 -- | This data structure collects all the information we need about a home 
 -- package module
 data ModuleDataGHC = ModuleDataGHC {