diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-04-25 05:23:28 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-04-25 05:23:28 +0000 |
| commit | c428aace2d2332b57acd05bc3d1b5631300eda9e (patch) | |
| tree | d1a92545d3908580070d28505f40506d4b35a4a1 /src/Haddock/Backends/Xhtml/Layout.hs | |
| parent | 40c87f79ff5e34efb4bffa306f328a5ad28a232e (diff) | |
fixed surround of instance and constructor tables
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Layout.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Layout.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs index 124d6150..8f9e83e5 100644 --- a/src/Haddock/Backends/Xhtml/Layout.hs +++ b/src/Haddock/Backends/Xhtml/Layout.hs @@ -92,11 +92,11 @@ spacedTable1, spacedTable5 :: Html -> Html spacedTable1 = table ! [theclass "vanilla", cellspacing 1, cellpadding 0] spacedTable5 = table ! [theclass "vanilla", cellspacing 5, cellpadding 0] -constrHdr, methHdr, atHdr :: HtmlTable -constrHdr = tda [ theclass "section4" ] << toHtml "Constructors" -methHdr = tda [ theclass "section4" ] << toHtml "Methods" -atHdr = tda [ theclass "section4" ] << toHtml "Associated Types" +constrHdr, methHdr, atHdr :: Html +constrHdr = h5 << "Constructors" +methHdr = h5 << "Methods" +atHdr = h5 << "Associated Types" -instHdr :: String -> HtmlTable +instHdr :: String -> Html instHdr id_ = - tda [ theclass "section4" ] << (collapsebutton id_ +++ toHtml " Instances") + h5 << (collapsebutton id_ +++ toHtml " Instances") |