Skip to content
Snippets Groups Projects
Commit 3a62f96b authored by Simon Marlow's avatar Simon Marlow
Browse files

[haddock @ 2002-04-05 14:11:51 by simonmar]

Fix the anchor for a class declaration
parent 1570cbc1
No related branches found
No related tags found
No related merge requests found
......@@ -395,16 +395,15 @@ ppHsClassDecl doc_map True (HsClassDecl loc ty decls) =
))
ppHsClassDecl doc_map False decl@(HsClassDecl loc ty decls) =
linkTarget c +++
if null decls
then declBox (ppClassHdr ty)
then declBox (linkTarget c +++ ppClassHdr ty)
else td << (
vanillaTable << (
if isJust doc
then aboves [header, classdoc, body]
else aboves [header, body]
))
where header = declBox (ppClassHdr ty <+> keyword "where")
where header = declBox (linkTarget c +++ ppClassHdr ty <+> keyword "where")
classdoc = docBox (markup htmlMarkup (fromJust doc))
meth_hdr = td ! [ theclass "section4" ] << toHtml "Methods"
body = td << (
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment