From 480d6ea8edc73342429af6ef9d4b482a1db68d69 Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Fri, 13 Aug 2010 15:48:44 +0000
Subject: 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
---
html/Ocean.std-theme/ocean.css | 6 +++---
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 [])
--
cgit v1.2.3