aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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 {