aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-08-13 15:48:44 +0000
committerMark Lentczner <markl@glyphic.com>2010-08-13 15:48:44 +0000
commit480d6ea8edc73342429af6ef9d4b482a1db68d69 (patch)
treef157491424bceac65ebb3993300dbbce562b0f6e /src
parentd9c7695f4d72cfe66c2d49a0913f173758c243e9 (diff)
removed underlining on hover for named anchors
headings in interface lost thier a element, no need, just put id on heading css for a elements now only applies to those with href attribute
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Backends/Xhtml.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index eae90bd4..4bd355ae 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -606,7 +606,7 @@ numberSectionHeadings exports = go 1 exports
processExport :: Bool -> LinksInfo -> Bool -> (ExportItem DocName) -> Maybe Html
processExport summary _ _ (ExportGroup lev id0 doc)
- = nothingIf summary $ groupTag lev << namedAnchor id0 << docToHtml doc
+ = nothingIf summary $ groupTag lev ! [identifier id0] << docToHtml doc
processExport summary links unicode (ExportDecl decl doc subdocs insts)
= processDecl summary $ ppDecl summary links decl doc insts subdocs unicode
processExport summary _ _ (ExportNoDecl y [])