diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-18 05:48:39 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-18 05:48:39 +0000 |
| commit | b143d90c46e01a3c2724003c4805110fab4b224e (patch) | |
| tree | a7a2dbdcd16471ab00f4ad22f6f2c9677a3c4144 /src/Haddock | |
| parent | 8b1faf5946561e8c4332187dd25f3b16b6d6c5ef (diff) | |
added content div to main pages
Diffstat (limited to 'src/Haddock')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 2 | ||||
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Layout.hs | 5 |
2 files changed, 4 insertions, 3 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index bac24479..24499f39 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -224,7 +224,7 @@ bodyHtml doctitle iface indexButton maybe_index_url ] ++ [styleMenu]) ! [theclass "links"] ], - pageContent, + divContent << pageContent, divFooter << paragraph << ( "Produced by " +++ (anchor ! [href projectUrl] << toHtml projectName) +++ diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs index 3afdd55d..0b4af0c0 100644 --- a/src/Haddock/Backends/Xhtml/Layout.hs +++ b/src/Haddock/Backends/Xhtml/Layout.hs @@ -13,7 +13,7 @@ module Haddock.Backends.Xhtml.Layout ( miniBody, - divPackageHeader, divModuleHeader, divFooter, + divPackageHeader, divContent, divModuleHeader, divFooter, divTableOfContents, divDescription, divSynposis, divInterface, divIndex, divAlphabet, divModuleList, @@ -58,12 +58,13 @@ sectionName :: Html -> Html sectionName = paragraph ! [theclass "caption"] -divPackageHeader, divModuleHeader, divFooter, +divPackageHeader, divContent, divModuleHeader, divFooter, divTableOfContents, divDescription, divSynposis, divInterface, divIndex, divAlphabet, divModuleList :: Html -> Html divPackageHeader = sectionDiv "package-header" +divContent = sectionDiv "content" divModuleHeader = sectionDiv "module-header" divFooter = sectionDiv "footer" divTableOfContents = sectionDiv "table-of-contents" |