From b143d90c46e01a3c2724003c4805110fab4b224e Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Sun, 18 Jul 2010 05:48:39 +0000
Subject: added content div to main pages
---
src/Haddock/Backends/Xhtml.hs | 2 +-
src/Haddock/Backends/Xhtml/Layout.hs | 5 +++--
2 files changed, 4 insertions(+), 3 deletions(-)
(limited to 'src')
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"
--
cgit v1.2.3