diff options
| author | Dr. ERDI Gergo <gergo@erdi.hu> | 2014-11-29 15:39:09 +0800 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-12-12 07:36:18 +0000 |
| commit | 3fd4c8c0b1be302d209e580d7190aef7c923a2ee (patch) | |
| tree | 414a4e5fdf0dcaf1eb9642931687572e3e17fa70 /haddock-api/src/Haddock/Backends/Xhtml | |
| parent | 0573481fd4ed19ce72e23d631a7e8e3d0e4cb288 (diff) | |
For pattern synonyms, render "pattern" as a keyword
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs index 25a080d5..a75553b8 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs +++ b/haddock-api/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 |