aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-07-18 05:48:39 +0000
committerMark Lentczner <markl@glyphic.com>2010-07-18 05:48:39 +0000
commitb143d90c46e01a3c2724003c4805110fab4b224e (patch)
treea7a2dbdcd16471ab00f4ad22f6f2c9677a3c4144 /src
parent8b1faf5946561e8c4332187dd25f3b16b6d6c5ef (diff)
added content div to main pages
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Backends/Xhtml.hs2
-rw-r--r--src/Haddock/Backends/Xhtml/Layout.hs5
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"