From 8b1faf5946561e8c4332187dd25f3b16b6d6c5ef Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Sun, 18 Jul 2010 05:34:29 +0000
Subject: cleaned up div functions in Layout.hs

---
 src/Haddock/Backends/Xhtml/Layout.hs | 39 ++++++++++++++++++++----------------
 1 file changed, 22 insertions(+), 17 deletions(-)

(limited to 'src')

diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs
index 081baeb6..3afdd55d 100644
--- a/src/Haddock/Backends/Xhtml/Layout.hs
+++ b/src/Haddock/Backends/Xhtml/Layout.hs
@@ -14,8 +14,8 @@ module Haddock.Backends.Xhtml.Layout (
   miniBody,
   
   divPackageHeader, divModuleHeader, divFooter,
-  divIndex, divAlphabet, divModuleList, divTableOfContents,
-  divDescription, divSynposis, divInterface,
+  divTableOfContents, divDescription, divSynposis, divInterface,
+  divIndex, divAlphabet, divModuleList,
 
   sectionName,
   
@@ -50,27 +50,32 @@ import GHC
 miniBody :: Html -> Html
 miniBody = body ! [identifier "mini"]
 
-divPackageHeader, divModuleHeader, divFooter :: Html -> Html
-divPackageHeader = thediv ! [identifier "package-header"]
-divModuleHeader  = thediv ! [identifier "module-header"]
-divFooter        = thediv ! [identifier "footer"]
 
-divIndex, divAlphabet, divModuleList, divTableOfContents :: Html -> Html
-divIndex           = thediv ! [identifier "index"]
-divAlphabet        = thediv ! [identifier "alphabet"]
-divModuleList      = thediv ! [identifier "module-list"]
-divTableOfContents = thediv ! [identifier "table-of-contents"]
+sectionDiv :: String -> Html -> Html
+sectionDiv i = thediv ! [identifier i]
 
-divDescription, divSynposis, divInterface :: Html -> Html
-divDescription     = thediv ! [identifier "description"]
-divSynposis        = thediv ! [identifier "synopsis"]
-divInterface       = thediv ! [identifier "interface"]
-
--- | The name of a section, used directly after opening a section
 sectionName :: Html -> Html
 sectionName = paragraph ! [theclass "caption"]
 
 
+divPackageHeader, divModuleHeader, divFooter,
+  divTableOfContents, divDescription, divSynposis, divInterface,
+  divIndex, divAlphabet, divModuleList
+    :: Html -> Html
+
+divPackageHeader    = sectionDiv "package-header"
+divModuleHeader     = sectionDiv "module-header"
+divFooter           = sectionDiv "footer"
+divTableOfContents  = sectionDiv "table-of-contents"
+divDescription      = sectionDiv "description"
+divSynposis         = sectionDiv "synopsis"
+divInterface        = sectionDiv "interface"
+divIndex            = sectionDiv "index"
+divAlphabet         = sectionDiv "alphabet"
+divModuleList       = sectionDiv "module-list"
+
+
+
 -- | Declaration containers 
 
 shortDeclList :: [Html] -> Html
-- 
cgit v1.2.3