diff options
| author | simonmar <unknown> | 2002-04-26 13:15:02 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-04-26 13:15:02 +0000 |
| commit | c415ce7604ebcee84ebbeb841d24375ae72e6397 (patch) | |
| tree | a06c4cf95a703045cfdf9f7ac6bb23434b47c799 /src | |
| parent | 31c53d79c85274012725480b8d78d341f3affe06 (diff) | |
[haddock @ 2002-04-26 13:15:02 by simonmar]
Move the explicit formatting of the little table for the
stability/portability/maintainer info from the HTML into the CSS, and
remove the explicit table size (just right-align it).
Diffstat (limited to 'src')
| -rw-r--r-- | src/HaddockHtml.hs | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 327d931e..7f05d42f 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -129,19 +129,13 @@ moduleInfo iface | Nothing <- iface_info iface = Html.emptyTable | Just info <- iface_info iface = tda [align "right"] << - (table ! [width "300", border 0, cellspacing 0, cellpadding 0] << ( - (tda [width "50%"] << font ! [color "#ffffff"] << - bold << toHtml "Portability") <-> - (tda [width "50%"] << font ! [color "#ffffff"] << - toHtml (portability info)) </> - (tda [width "50%"] << font ! [color "#ffffff"] << - bold << toHtml "Stability") <-> - (tda [width "50%"] << font ! [color "#ffffff"] << - toHtml (stability info)) </> - (tda [width "50%"] << font ! [color "#ffffff"] << - bold << toHtml "Maintainer") <-> - (tda [width "50%"] << font ! [color "#ffffff"] << - toHtml (maintainer info)) + (table ! [border 0, cellspacing 0, cellpadding 0] << ( + (tda [theclass "infohead"] << toHtml "Portability") <-> + (tda [theclass "infoval"] << toHtml (portability info)) </> + (tda [theclass "infohead"] << toHtml "Stability") <-> + (tda [theclass "infoval"] << toHtml (stability info)) </> + (tda [theclass "infohead"] << toHtml "Maintainer") <-> + (tda [theclass "infoval"] << toHtml (maintainer info)) )) -- --------------------------------------------------------------------------- |