aboutsummaryrefslogtreecommitdiff
path: root/src/HaddockHtml.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/HaddockHtml.hs')
-rw-r--r--src/HaddockHtml.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 61113154..fc053e68 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -700,11 +700,11 @@ ppFunSig summary nm ty doc
| otherwise =
declBox (ppHsBinder False nm) </>
(tda [theclass "body"] << vanillaTable << (
+ do_args True ty </>
(if (isJust doc)
then ndocBox (docToHtml (fromJust doc))
- else Html.emptyTable) </>
- do_args True ty
- ))
+ else Html.emptyTable)
+ ))
where
no_arg_docs (HsForAllType _ _ ty) = no_arg_docs ty
no_arg_docs (HsTyFun (HsTyDoc _ _) _) = False
@@ -804,7 +804,7 @@ ppHsIdentifier (HsSpecial str) = str
ppHsBinder :: Bool -> HsName -> Html
ppHsBinder True nm = anchor ! [href ('#':hsNameStr nm)] << ppHsBinder' nm
-ppHsBinder False nm = linkTarget nm +++ ppHsBinder' nm
+ppHsBinder False nm = linkTarget nm +++ bold << ppHsBinder' nm
ppHsBinder' (HsTyClsName id) = ppHsBindIdent id
ppHsBinder' (HsVarName id) = ppHsBindIdent id
@@ -853,7 +853,7 @@ hsep htmls = foldr1 (\a b -> a+++" "+++b) htmls
infixr 8 <+>
a <+> b = Html (getHtmlElements (toHtml a) ++ HtmlString " ": getHtmlElements (toHtml b))
-keyword s = bold << toHtml s
+keyword s = thespan ! [theclass "keyword"] << toHtml s
equals = char '='
comma = char ','