diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-18 06:12:22 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-18 06:12:22 +0000 |
| commit | a7aad74a978e2e1d313c23863c7a91983bbc4848 (patch) | |
| tree | b5f4859924a03f0c294131599ebdf4e82c3bf625 /src/Haddock/Backends/Xhtml.hs | |
| parent | b143d90c46e01a3c2724003c4805110fab4b224e (diff) | |
add .doc class to documentation blocks
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index 24499f39..786a4996 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -294,7 +294,7 @@ ppHtmlContents odir doctitle ppPrologue :: String -> Maybe (Doc GHC.RdrName) -> Html ppPrologue _ Nothing = noHtml ppPrologue title (Just doc) = - divDescription << (h1 << title +++ rdrDocToHtml doc) + docElement divDescription << (h1 << title +++ rdrDocToHtml doc) ppModuleTree :: [ModuleTree] -> Html ppModuleTree ts = @@ -543,7 +543,7 @@ ifaceToHtml maybe_source_url maybe_wiki_url iface unicode = case ifaceRnDoc iface of Nothing -> noHtml Just doc -> divDescription $ - sectionName << "Description" +++ docToHtml doc + sectionName << "Description" +++ docSection doc -- omit the synopsis if there are no documentation annotations at all synopsis @@ -654,7 +654,7 @@ processExport summary _ _ (ExportNoDecl y []) processExport summary _ _ (ExportNoDecl y subs) = processDeclOneLiner summary $ ppDocName y +++ parenList (map ppDocName subs) processExport summary _ _ (ExportDoc doc) - = nothingIf summary $ docToHtml doc + = nothingIf summary $ docSection doc processExport summary _ _ (ExportModule mdl) = processDeclOneLiner summary $ toHtml "module" <+> ppModule mdl "" |