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 | |
| 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
| -rw-r--r-- | html/Ocean.std-theme/ocean.css | 6 | ||||
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/html/Ocean.std-theme/ocean.css b/html/Ocean.std-theme/ocean.css index 16d86734..3fb799cb 100644 --- a/html/Ocean.std-theme/ocean.css +++ b/html/Ocean.std-theme/ocean.css @@ -19,9 +19,9 @@ p { margin: 0.5em 0; } ul { margin-left: 2em; } a { text-decoration: none; } -a:link { color: rgb(196,69,29); } -a:visited { color: rgb(171,105,84); } -a:hover { text-decoration:underline; } +a[href]:link { color: rgb(196,69,29); } +a[href]:visited { color: rgb(171,105,84); } +a[href]:hover { text-decoration:underline; } /* @end */ 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 []) |