diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-08-13 15:48:44 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-08-13 15:48:44 +0000 |
| commit | 480d6ea8edc73342429af6ef9d4b482a1db68d69 (patch) | |
| tree | f157491424bceac65ebb3993300dbbce562b0f6e /src/Haddock/Backends/Xhtml.hs | |
| parent | d9c7695f4d72cfe66c2d49a0913f173758c243e9 (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/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 2 |
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 []) |