From 20c21b530551f5174a10905e2517edff1333357f Mon Sep 17 00:00:00 2001 From: davve Date: Thu, 10 Aug 2006 17:37:47 +0000 Subject: More progress --- src/Main.hs | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) (limited to 'src/Main.hs') diff --git a/src/Main.hs b/src/Main.hs index 73f31581..f77ad1f1 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -292,7 +292,7 @@ run flags files = do printSDoc (ppr (map hmod_rn_export_items haddockModules'')) defaultUserStyle mapM_ putStrLn messages' - let visibleModules = [ m | m <- haddockModules', OptHide `notElem` (hmod_options m) ] + let visibleModules = [ m | m <- haddockModules'', OptHide `notElem` (hmod_options m) ] updateHTMLXRefs [] [] @@ -399,20 +399,6 @@ run flags files = do print_ x = printSDoc (ppr x) defaultUserStyle -instance (Outputable a, OutputableBndr a) => Outputable (ExportItem2 a) where - ppr (ExportDecl2 n decl doc instns) = text "ExportDecl" <+> ppr n <+> ppr decl <+> ppr doc <+> ppr instns - ppr (ExportNoDecl2 n1 n2 ns) = text "ExportNoDecl (org name, link name, sub names)" <+> ppr n1 <+> ppr n2 <+> ppr ns - ppr (ExportGroup2 lev id doc) = text "ExportGroup (lev, id, doc)" <+> ppr lev <+> ppr doc - ppr (ExportDoc2 doc) = text "ExportDoc" <+> ppr doc - ppr (ExportModule2 mod) = text "ExportModule" <+> ppr mod - ---instance Outputable DocName where --- ppr (Link name) = ppr name --- ppr (NoLink name) = ppr name - -instance OutputableBndr DocName where - pprBndr _ d = ppr d - instance Outputable (DocEntity Name) where ppr (DocEntity d) = ppr d ppr (DeclEntity name) = ppr name -- cgit v1.2.3