From a90130c4e9199a3f3255a12c1ad24b013df687e0 Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 13 May 2002 15:19:03 +0000 Subject: [haddock @ 2002-05-13 15:19:03 by simonmar] Cope with datatypes which have documentation on the constructor but not the type itself, and records which have documentation on the fields but not the constructor. (Thanks to Ross Paterson for pointing out the bugs). --- src/HaddockHtml.hs | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'src/HaddockHtml.hs') diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 5a16b669..2bd6b102 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -501,7 +501,10 @@ ppHsDataDecl doc_map summary is_newty decl@(HsDataDecl loc ctx nm args cons drv) = td << vanillaTable << (header datadoc constrs) where header = declBox (ppHsDataHeader False is_newty nm args) - datadoc = docBox (markup htmlMarkup (fromJust doc)) + + datadoc + | isJust doc = docBox (markup htmlMarkup (fromJust doc)) + | otherwise = Html.emptyTable constr_hdr = tda [ theclass "section4" ] << toHtml "Constructors" @@ -560,7 +563,11 @@ ppHsFullConstr doc_map (HsRecDecl pos nm tvs ctxt fields maybe_doc) = ) where hdr = declBox (ppHsConstrHdr tvs ctxt +++ ppHsBinder False nm) - constr_doc = docBox (markup htmlMarkup (fromJust doc)) + + constr_doc + | isJust doc = docBox (markup htmlMarkup (fromJust doc)) + | otherwise = Html.emptyTable + fields_html = td << table ! [width "100%", cellpadding 0, cellspacing 8] << ( -- cgit v1.2.3