aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends/Xhtml
diff options
context:
space:
mode:
authorƁukasz Hanuszczak <lukasz.hanuszczak@gmail.com>2015-08-03 15:29:35 +0200
committerMateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>2015-08-21 18:22:33 +0100
commitc537853ff7574a6bf3c3c94fa9db52aa23a5859f (patch)
treeb59810a63ef89b53f02e81d2dcf8d8c74b2d0715 /haddock-api/src/Haddock/Backends/Xhtml
parent472440c233fccf662ff41193db66c62e7bc6f6d1 (diff)
Fix issue with instance expander hijacking type hyperlink click.
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml')
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml/Layout.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs b/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs
index 074b6801..d624a1d0 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml/Layout.hs
@@ -205,9 +205,9 @@ subInstHead :: String -- ^ Instance unique id (for anchor generation)
-> Html -- ^ Header content (instance name and type)
-> Html
subInstHead iid hdr =
- expander << hdr
+ expander noHtml <+> hdr
where
- expander = thediv ! collapseControl (instAnchorId iid) False "instance"
+ expander = thespan ! collapseControl (instAnchorId iid) False "instance"
subInstDetails :: String -- ^ Instance unique id (for anchor generation)