aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml.hs
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-07-28 00:03:12 +0000
committerMark Lentczner <markl@glyphic.com>2010-07-28 00:03:12 +0000
commit824ffde8ed06ad4f22c765a342aa322d2f27baf0 (patch)
treec7625f0c2cfe3d57a81457a28a8f949df56f1e74 /src/Haddock/Backends/Xhtml.hs
parentd899296a5358c882a1f3fd7505dd711bf3f6c30d (diff)
make info block and package bar links be floatable by placing them first in the dom tree
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
-rw-r--r--src/Haddock/Backends/Xhtml.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index c9eaf71b..6fc0ffeb 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -167,13 +167,13 @@ bodyHtml doctitle iface themes
pageContent =
body << [
divPackageHeader << [
- nonEmpty sectionName << doctitle,
unordList (catMaybes [
srcButton maybe_source_url iface,
wikiButton maybe_wiki_url (ifaceMod `fmap` iface),
contentsButton maybe_contents_url,
indexButton maybe_index_url
- ] ++ [styleMenu themes]) ! [theclass "links"]
+ ] ++ [styleMenu themes]) ! [theclass "links"],
+ nonEmpty sectionName << doctitle
],
divContent << pageContent,
divFooter << paragraph << (
@@ -453,7 +453,7 @@ ppHtmlModule odir doctitle themes
bodyHtml doctitle (Just iface) themes
maybe_source_url maybe_wiki_url
maybe_contents_url maybe_index_url << [
- divModuleHeader << (sectionName << mdl_str +++ moduleInfo iface),
+ divModuleHeader << (moduleInfo iface +++ (sectionName << mdl_str)),
ifaceToHtml maybe_source_url maybe_wiki_url iface unicode
]