From b94ab9034367f51b978904d60f2604db10abbd9f Mon Sep 17 00:00:00 2001
From: "Dr. ERDI Gergo" <gergo@erdi.hu>
Date: Sat, 29 Nov 2014 15:39:09 +0800
Subject: For pattern synonyms, render "pattern" as a keyword

---
 src/Haddock/Backends/Xhtml/Decl.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3