From 7950a7455e553e1213c3a7b4ca3f5e47a239e6d4 Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Sat, 17 Jul 2010 06:48:20 +0000
Subject: moved footer into only place that used it

---
 src/Haddock/Backends/Xhtml.hs | 14 +++++---------
 1 file changed, 5 insertions(+), 9 deletions(-)

(limited to 'src/Haddock/Backends')

diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index 03dd069b..6f12377e 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -173,14 +173,6 @@ headHtml docTitle miniPage =
     setSynopsis = maybe "" (\p -> "setSynopsis(\"" ++ p ++ "\");") miniPage
 
 
-footer :: Html
-footer =
-  divFooter << paragraph << (
-    "Produced by " +++ 
-    (anchor ! [href projectUrl] << toHtml projectName) +++
-    (" version " ++ projectVersion)
-    )
-   
 srcButton :: SourceURLs -> Maybe Interface -> Maybe Html
 srcButton (Just src_base_url, _, _) Nothing =
   Just (anchor ! [href src_base_url] << "Source code")
@@ -233,7 +225,11 @@ bodyHtml doctitle iface
         ] ++ [styleMenu]) ! [theclass "links"]
       ],
     pageContent,
-    footer
+    divFooter << paragraph << (
+      "Produced by " +++ 
+      (anchor ! [href projectUrl] << toHtml projectName) +++
+      (" version " ++ projectVersion)
+      )
     ]
 
 moduleInfo :: Interface -> Html
-- 
cgit v1.2.3