diff options
| author | krasimir <unknown> | 2004-07-31 13:10:20 +0000 |
|---|---|---|
| committer | krasimir <unknown> | 2004-07-31 13:10:20 +0000 |
| commit | 790409633e5783aaffda8d2d782e3507431dbb7a (patch) | |
| tree | 57010168a00625c2c5c2c05372daf066a33723d8 | |
| parent | 133c8c5c6d45e90ee51ea2bd889367034bcaa845 (diff) | |
[haddock @ 2004-07-31 13:10:20 by krasimir]
Make DHtmlTree compatible with Mozila browser
| -rw-r--r-- | src/HaddockHtml.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index cd0d452b..eda488e3 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 << vanillaTable << htmlTable + pad_td 0 << vanillaTable << htmlTable where genTable htmlTable id [] = (htmlTable,id) genTable htmlTable id (x:xs) = genTable (htmlTable </> u) id' xs @@ -265,7 +265,7 @@ mkNode ss (Node s leaf pkg ts) id = htmlNode | otherwise = toHtml s htmlPkg = case pkg of - Nothing -> td << empty + Nothing -> tda [width "1"] << empty Just p -> td << toHtml p mdl = foldr (++) "" (s' : map ('.':) ss') @@ -284,8 +284,8 @@ mkNode ss (Node s leaf pkg ts) id = htmlNode where (u,id') = mkNode (s:ss) x id - pad_td 0 = tda [width "100%"] - pad_td n = tda [thestyle ("padding-left:" ++ show n ++ "px"), width "100%"] +pad_td 0 = tda [width "100%"] +pad_td n = tda [thestyle ("padding-left:" ++ show n ++ "px"), width "100%"] -- --------------------------------------------------------------------------- -- Generate the index |