aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorkrasimir <unknown>2004-07-31 13:10:20 +0000
committerkrasimir <unknown>2004-07-31 13:10:20 +0000
commit790409633e5783aaffda8d2d782e3507431dbb7a (patch)
tree57010168a00625c2c5c2c05372daf066a33723d8 /src
parent133c8c5c6d45e90ee51ea2bd889367034bcaa845 (diff)
[haddock @ 2004-07-31 13:10:20 by krasimir]
Make DHtmlTree compatible with Mozila browser
Diffstat (limited to 'src')
-rw-r--r--src/HaddockHtml.hs8
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