diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2016-02-18 00:01:25 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-02-18 00:05:56 +0100 |
| commit | 7ac0237e68045b8735a0c0452656390fc0a2cdcb (patch) | |
| tree | 25be70b830ea70a69ff1da6c22289dc8a6f926ee /haddock-api/src/Haddock/Backends | |
| parent | fdd07f36c26b7f8452c3e15aca312b32821f1ea5 (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
Diffstat (limited to 'haddock-api/src/Haddock/Backends')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 5 |
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 |