From 790409633e5783aaffda8d2d782e3507431dbb7a Mon Sep 17 00:00:00 2001
From: krasimir <unknown>
Date: Sat, 31 Jul 2004 13:10:20 +0000
Subject: [haddock @ 2004-07-31 13:10:20 by krasimir] Make DHtmlTree compatible
 with Mozila browser

---
 src/HaddockHtml.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3