aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorDr. ERDI Gergo <gergo@erdi.hu>2014-11-29 15:39:09 +0800
committerDr. ERDI Gergo <gergo@erdi.hu>2014-11-29 15:39:09 +0800
commitb94ab9034367f51b978904d60f2604db10abbd9f (patch)
treef7bebc14edfffd5dd640b065dd64d02443819408 /src/Haddock
parent1a9dcfef033dd66514015d4a942ba67d21f95482 (diff)
For pattern synonyms, render "pattern" as a keyword
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Backends/Xhtml/Decl.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml/Decl.hs b/src/Haddock/Backends/Xhtml/Decl.hs
index 2c0a124a..85e00e91 100644
--- a/src/Haddock/Backends/Xhtml/Decl.hs
+++ b/src/Haddock/Backends/Xhtml/Decl.hs
@@ -83,7 +83,7 @@ ppLPatSig summary links loc (doc, _argDocs) (L _ name) (expl, qtvs) lprov lreq t
| otherwise = topDeclElem links loc splice [name] (pref1 <+> ppFixities fixities qual)
+++ docSection Nothing qual doc
where
- pref1 = hsep [ toHtml "pattern"
+ pref1 = hsep [ keyword "pattern"
, ppBinder summary occname
, dcolon unicode
, ppLTyVarBndrs expl qtvs unicode qual