diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-28 00:03:12 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-28 00:03:12 +0000 |
| commit | 824ffde8ed06ad4f22c765a342aa322d2f27baf0 (patch) | |
| tree | c7625f0c2cfe3d57a81457a28a8f949df56f1e74 /src/Haddock/Backends | |
| parent | d899296a5358c882a1f3fd7505dd711bf3f6c30d (diff) | |
make info block and package bar links be floatable by placing them first in the dom tree
Diffstat (limited to 'src/Haddock/Backends')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 6 |
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 ] |