diff options
| author | Łukasz Hanuszczak <lukasz.hanuszczak@gmail.com> | 2015-07-29 12:50:51 +0200 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2015-08-21 18:22:32 +0100 |
| commit | 3fb4ec56a9e7fc167c8fd970bc15b554ab85a1c9 (patch) | |
| tree | e309790d4a0bdf30856144ca700570e0a637c2d4 /haddock-api/src/Haddock/Backends/Xhtml | |
| parent | 73f4a18d0b29dd209a5f1172c8ed662be11d5690 (diff) | |
Improve look of rendered associated families in instance details.
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 13 |
1 files changed, 11 insertions, 2 deletions
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 |