aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml.hs
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-07-17 06:48:20 +0000
committerMark Lentczner <markl@glyphic.com>2010-07-17 06:48:20 +0000
commit7950a7455e553e1213c3a7b4ca3f5e47a239e6d4 (patch)
tree0c9b6c3ac20617f9c5b3671d327bb0f79c6f9bf1 /src/Haddock/Backends/Xhtml.hs
parent82e7b1a47a1063e4cf28e124d8d3de498909d8d3 (diff)
moved footer into only place that used it
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
-rw-r--r--src/Haddock/Backends/Xhtml.hs14
1 files changed, 5 insertions, 9 deletions
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