added content div to main pages

3 files changed, 9 insertions, 5 deletions

diff --git a/html/shaddock.css b/html/shaddock.css
index 8ab3e57d..7928c832 100644
--- a/html/shaddock.css
+++ b/html/shaddock.css
@@ -59,10 +59,13 @@ body {
   font-family: DroidSerif, Georgia, serif;
   }
 
-div {
+div#content {
 	padding: 0 30px;
 }
-  
+
+div#module-header {
+	margin: 0 -30px;
+}
 
 
 a:link    { color: #5200A3; text-decoration: none }
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"