aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2016-02-18 00:01:25 +0100
committerBen Gamari <ben@smart-cactus.org>2016-02-18 00:05:56 +0100
commit7ac0237e68045b8735a0c0452656390fc0a2cdcb (patch)
tree25be70b830ea70a69ff1da6c22289dc8a6f926ee
parentfdd07f36c26b7f8452c3e15aca312b32821f1ea5 (diff)
Xhtml.Decl: Show 'where ...' after closed type family
Seems like we should ideally show the actual equations as well but that seems like it would be a fair amount of work
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml/Decl.hs5
1 files changed, 5 insertions, 0 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
index 59b444a0..2f802aef 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs
@@ -269,6 +269,11 @@ ppTyFamHeader summary associated d@(FamilyDecl { fdInfo = info
(case injectivity of
Nothing -> noHtml
Just (L _ injectivityAnn) -> ppInjectivityAnn unicode qual injectivityAnn
+ ) <+>
+
+ (case info of
+ ClosedTypeFamily _ -> keyword "where ..."
+ _ -> mempty
)
ppResultSig :: FamilyResultSig DocName -> Unicode -> Qualification -> Html