diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-17 06:48:20 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-17 06:48:20 +0000 |
| commit | 7950a7455e553e1213c3a7b4ca3f5e47a239e6d4 (patch) | |
| tree | 0c9b6c3ac20617f9c5b3671d327bb0f79c6f9bf1 /src/Haddock/Backends/Xhtml.hs | |
| parent | 82e7b1a47a1063e4cf28e124d8d3de498909d8d3 (diff) | |
moved footer into only place that used it
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 14 |
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 |