diff options
Diffstat (limited to 'src')
-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 |