aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordavve <davve@dtek.chalmers.se>2007-03-09 17:45:44 +0000
committerdavve <davve@dtek.chalmers.se>2007-03-09 17:45:44 +0000
commit05a69b71e9bb24e2c7860f701df1f1856f75f1e5 (patch)
tree2d9e407a3523629ae28172afbfee46ecb25157e0
parent3a349201b65a518d9f15c7201c1857ebde7ba9a5 (diff)
Remove commented-out DocEntity printing
-rw-r--r--src/Main.hs16
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 {