diff options
author | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-11-29 15:39:09 +0800 |
---|---|---|
committer | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-11-29 15:39:09 +0800 |
commit | b94ab9034367f51b978904d60f2604db10abbd9f (patch) | |
tree | f7bebc14edfffd5dd640b065dd64d02443819408 /src/Haddock/Backends/Xhtml/Decl.hs | |
parent | 1a9dcfef033dd66514015d4a942ba67d21f95482 (diff) |
For pattern synonyms, render "pattern" as a keyword
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Decl.hs')
-rw-r--r-- | src/Haddock/Backends/Xhtml/Decl.hs | 2 |
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 |