diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-15 05:02:26 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-15 05:02:26 +0000 |
| commit | 3811494e06613f472c28a00ec3de00b50490f143 (patch) | |
| tree | 90d595ff96b6f52b65b98c11dd60e45758f68c4b /src/Haddock/Backends/Xhtml/Names.hs | |
| parent | 26a6eaaed227afbd5c8d47c04c72827c60d3935f (diff) | |
clean up of anchors
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Names.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Names.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Haddock/Backends/Xhtml/Names.hs b/src/Haddock/Backends/Xhtml/Names.hs index 755b7a2d..5b3732c6 100644 --- a/src/Haddock/Backends/Xhtml/Names.hs +++ b/src/Haddock/Backends/Xhtml/Names.hs @@ -43,9 +43,6 @@ ppDocName (Documented name mdl) = where occName = nameOccName name ppDocName (Undocumented name) = toHtml (getOccString name) -linkTarget :: OccName -> Html -linkTarget n = namedAnchor (anchorNameStr n) << toHtml "" - ppName :: Name -> Html ppName name = toHtml (getOccString name) @@ -54,7 +51,7 @@ ppBinder :: Bool -> OccName -> Html -- The Bool indicates whether we are generating the summary, in which case -- the binder will be a link to the full definition. ppBinder True n = linkedAnchor (anchorNameStr n) << ppBinder' n -ppBinder False n = linkTarget n +++ bold << ppBinder' n +ppBinder False n = namedAnchor (anchorNameStr n) << bold << ppBinder' n ppBinder' :: OccName -> Html |