From 3fb4ec56a9e7fc167c8fd970bc15b554ab85a1c9 Mon Sep 17 00:00:00 2001
From: Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com>
Date: Wed, 29 Jul 2015 12:50:51 +0200
Subject: Improve look of rendered associated families in instance details.

---
 haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'haddock-api/src/Haddock/Backends')

diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
index 6fb36e29..4b28e4ff 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
@@ -302,6 +302,15 @@ ppAssocType summ links doc (L loc decl) fixities splice unicode qual =
    ppTyFam summ True links [] fixities loc (fst doc) decl splice unicode qual
 
 
+ppSimpleAssocTy :: LinksInfo -> Splice -> Unicode -> Qualification
+              -> FamilyDecl DocName
+              -> Html
+ppSimpleAssocTy links splice unicode qual decl =
+    ppAssocType False links noDocForDecl ldecl [] splice unicode qual
+  where
+    ldecl = L (getLoc $ fdLName decl) decl
+
+
 --------------------------------------------------------------------------------
 -- * TyClDecl helpers
 --------------------------------------------------------------------------------
@@ -568,9 +577,9 @@ ppInstanceAssocTys :: LinksInfo -> Splice -> Unicode -> Qualification
                    -> [FamilyDecl DocName]
                    -> [Html]
 ppInstanceAssocTys links splice unicode qual =
-    map ppTyFam'
+    map ppSimpleAssocTy'
   where
-    ppTyFam' fam = ppTyFamHeader False True fam unicode qual
+    ppSimpleAssocTy' = ppSimpleAssocTy links splice unicode qual
 
 
 ppInstanceSigs :: LinksInfo -> Splice -> Unicode -> Qualification
-- 
cgit v1.2.3