aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Backends/Xhtml/Utils.hs
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2016-02-08 17:56:17 +0100
committerBen Gamari <ben@smart-cactus.org>2016-02-08 17:56:17 +0100
commitf84ddf06c9daf86a2e15bf44cf877ce2324967cf (patch)
tree6dc24b56fdf8d99d0d798c25621ae4f205af57a3 /haddock-api/src/Haddock/Backends/Xhtml/Utils.hs
parent228a0d72baa04be161b0fc918266f2edb0c6519b (diff)
parent8410dd341a1730f708af3f0d96d13f2b5f7b9df5 (diff)
Merge branch 'anchors-redux'
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml/Utils.hs')
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml/Utils.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Utils.hs b/haddock-api/src/Haddock/Backends/Xhtml/Utils.hs
index 98ff4007..1d49807d 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml/Utils.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml/Utils.hs
@@ -195,7 +195,7 @@ dot = toHtml "."
-- | Generate a named anchor
namedAnchor :: String -> Html -> Html
-namedAnchor n = anchor ! [XHtml.name n]
+namedAnchor n = anchor ! [XHtml.identifier n]
linkedAnchor :: String -> Html -> Html