From 05a69b71e9bb24e2c7860f701df1f1856f75f1e5 Mon Sep 17 00:00:00 2001 From: davve Date: Fri, 9 Mar 2007 17:45:44 +0000 Subject: Remove commented-out DocEntity printing --- src/Main.hs | 16 ---------------- 1 file changed, 16 deletions(-) (limited to 'src') 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 { -- cgit v1.2.3