aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml.hs
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-07-29 01:12:46 +0000
committerMark Lentczner <markl@glyphic.com>2010-07-29 01:12:46 +0000
commite998ed04e53f295715251be764457ff4eec4ae9f (patch)
tree15276361d0059c57bc11c253149b5d98d1f90bce /src/Haddock/Backends/Xhtml.hs
parent842fce48a293a2775714dcb444c67310e150cd9b (diff)
styling tweaks
don't generate an empty li for absent style menu in links area update css for Classic and Snappy to handle: dl lists links in package header and in declarations floating of links and info block in package and module headers
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
-rw-r--r--src/Haddock/Backends/Xhtml.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index 6fc0ffeb..eb06e499 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -171,8 +171,8 @@ bodyHtml doctitle iface themes
srcButton maybe_source_url iface,
wikiButton maybe_wiki_url (ifaceMod `fmap` iface),
contentsButton maybe_contents_url,
- indexButton maybe_index_url
- ] ++ [styleMenu themes]) ! [theclass "links"],
+ indexButton maybe_index_url,
+ styleMenu themes]) ! [theclass "links"],
nonEmpty sectionName << doctitle
],
divContent << pageContent,