From b143d90c46e01a3c2724003c4805110fab4b224e Mon Sep 17 00:00:00 2001 From: Mark Lentczner 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/Haddock/Backends') 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