diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-04-04 06:24:14 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-04-04 06:24:14 +0000 |
| commit | 1ea671418f3e6650bf6b30f5efb0a364f043093d (patch) | |
| tree | 5c48448b4978baec31c64328bed64f32549701fb /src/Haddock/Backends/Xhtml.hs | |
| parent | f5f0af15b7feee9535c2e57afeeb7018231063f4 (diff) | |
all decls now generate Html not HtmlTable
- ppDecl return Html, and so now do all of the functions it calls
- added some internal tables to some decls, which is wrong, and will have
to be fixed
- decl "Box" functions became "Elem" functions to make clear they aren't
in a table anymore (see Layout.hs)
- docBox went away, as only used in one place (and its days are numbered)
- cleaned up logic in a number of places, removed dead code
- added maybeDocToHtml which simplified a number of places in the code
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index dad65a4c..a83bc6ae 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -294,7 +294,7 @@ ppPrologue :: String -> Maybe (Doc GHC.RdrName) -> HtmlTable ppPrologue _ Nothing = emptyTable ppPrologue title (Just doc) = (tda [theclass "section1"] << toHtml title) </> - docBox (rdrDocToHtml doc) + (tda [theclass "doc"] << (rdrDocToHtml doc)) ppModuleTree :: String -> [ModuleTree] -> HtmlTable ppModuleTree _ ts = @@ -736,7 +736,7 @@ processExport :: Bool -> LinksInfo -> Bool -> (ExportItem DocName) processExport _ _ _ (ExportGroup lev id0 doc) = Left $ groupTag lev << namedAnchor id0 << docToHtml doc processExport summary links unicode (ExportDecl decl doc subdocs insts) - = Right $ ppDecl' summary links decl doc insts subdocs unicode + = Right $ ppDecl summary links decl doc insts subdocs unicode processExport _ _ _ (ExportNoDecl y []) = Right $ ppDocName y processExport _ _ _ (ExportNoDecl y subs) |