aboutsummaryrefslogtreecommitdiff
path: root/src/HaddockHtml.hs
diff options
context:
space:
mode:
authorsimonmar <unknown>2002-05-29 15:27:18 +0000
committersimonmar <unknown>2002-05-29 15:27:18 +0000
commitf93641d6fe818667bde3215364b9cb2de9a4dc41 (patch)
treeb944c1eca46af3e150589ee7572857c7cc11661a /src/HaddockHtml.hs
parentb33335263d27d63b7feffeca3059d89bf2964620 (diff)
[haddock @ 2002-05-29 15:27:18 by simonmar]
Include the instances in abstract data types too
Diffstat (limited to 'src/HaddockHtml.hs')
-rw-r--r--src/HaddockHtml.hs18
1 files changed, 8 insertions, 10 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index ee5db5fd..29023524 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -476,12 +476,6 @@ ppShortDataDecl summary is_newty
)
where do_constr c con = declBox (toHtml [c] <+> ppShortConstr summary con)
--- First, the abstract case:
-
-ppHsDataDecl summary inst_maps is_newty x
- (HsDataDecl loc ctx nm args [] drv doc) =
- declWithDoc summary doc (ppHsDataHeader summary is_newty nm args)
-
-- The rest of the cases:
ppHsDataDecl summary (_, ty_inst_map) is_newty
@@ -492,8 +486,7 @@ ppHsDataDecl summary (_, ty_inst_map) is_newty
= header </>
tda [theclass "body"] << vanillaTable << (
datadoc </>
- constr_hdr </>
- (tda [theclass "body"] << constr_table << constrs) </>
+ constr_bit </>
instances_bit
)
where
@@ -506,8 +499,13 @@ ppHsDataDecl summary (_, ty_inst_map) is_newty
datadoc | isJust doc = ndocBox (docToHtml (fromJust doc))
| otherwise = Html.emptyTable
- constrs | null cons = Html.emptyTable
- | otherwise = aboves (map ppSideBySideConstr cons)
+ constr_bit
+ | null cons = Html.emptyTable
+ | otherwise =
+ constr_hdr </>
+ (tda [theclass "body"] << constr_table <<
+ aboves (map ppSideBySideConstr cons)
+ )
no_constr_docs = all constr_has_no_doc cons