diff options
| author | krasimir <unknown> | 2004-07-31 12:04:38 +0000 |
|---|---|---|
| committer | krasimir <unknown> | 2004-07-31 12:04:38 +0000 |
| commit | 133c8c5c6d45e90ee51ea2bd889367034bcaa845 (patch) | |
| tree | 7261f71d294c0444ae3890cb3d6f0014c242a177 /src/HaddockHtml.hs | |
| parent | 64d30b1db8d571bc3b0d8947a81c59b4bd353417 (diff) | |
[haddock @ 2004-07-31 12:04:37 by krasimir]
make the DHtmlTree in contents page more portable. The +/- buttons are replaced
with new images which looks more beatiful.
Diffstat (limited to 'src/HaddockHtml.hs')
| -rw-r--r-- | src/HaddockHtml.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 3233c408..cd0d452b 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -243,7 +243,7 @@ ppPrologue title (Just doc) = ppModuleTree :: String -> [ModuleTree] -> HtmlTable ppModuleTree _ ts = tda [theclass "section1"] << toHtml "Modules" </> - td << table ! [cellpadding 0, cellspacing 2] << htmlTable + td << vanillaTable << htmlTable where genTable htmlTable id [] = (htmlTable,id) genTable htmlTable id (x:xs) = genTable (htmlTable </> u) id' xs @@ -279,7 +279,7 @@ mkNode ss (Node s leaf pkg ts) id = htmlNode genSubTree :: HtmlTable -> Int -> [ModuleTree] -> (Html,Int) genSubTree htmlTable id [] = (sub_tree,id) where - sub_tree = table ! [identifier id_s, thestyle "display:none;", cellpadding 0, cellspacing 0, width "100%"] << htmlTable + sub_tree = vanillaTable ! [identifier id_s, thestyle "display:none;"] << htmlTable genSubTree htmlTable id (x:xs) = genSubTree (htmlTable </> u) id' xs where (u,id') = mkNode (s:ss) x id |