aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEdward Z. Yang <ezyang@cs.stanford.edu>2017-04-22 20:38:26 -0700
committerEdward Z. Yang <ezyang@cs.stanford.edu>2017-04-22 20:38:26 -0700
commita0c4790e15a2d3fab8d830eee8fcd639fe6d39c9 (patch)
tree6ac277f3cddfd26e43c4dbe578ffc2fb8d6bc71d
parent07272c70c1cc72cd631177796a1b5b332bcc579b (diff)
Render (signature) only if it actually is a signature!
I forgot a conditional, oops! Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml.hs7
1 files changed, 5 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml.hs b/haddock-api/src/Haddock/Backends/Xhtml.hs
index 7b5f9017..0c9abbf2 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml.hs
@@ -486,10 +486,13 @@ ppHtmlModule odir doctitle themes
mdl_str_annot = mdl_str ++ if ifaceIsSig iface
then " (signature)"
else ""
- mdl_str_linked = mdl_str +++
- " (signature" +++
+ mdl_str_linked
+ | ifaceIsSig iface
+ = mdl_str +++ " (signature" +++
sup << ("[" +++ anchor ! [href signatureDocURL] << "?" +++ "]" ) +++
")"
+ | otherwise
+ = toHtml mdl_str
real_qual = makeModuleQual qual aliases mdl
html =
headHtml mdl_str_annot (Just $ "mini_" ++ moduleHtmlFile mdl) themes maybe_mathjax_url +++