From c415ce7604ebcee84ebbeb841d24375ae72e6397 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 26 Apr 2002 13:15:02 +0000
Subject: [haddock @ 2002-04-26 13:15:02 by simonmar] Move the explicit
 formatting of the little table for the stability/portability/maintainer info
 from the HTML into the CSS, and remove the explicit table size (just
 right-align it).

---
 html/haddock.css   | 16 +++++++++++++++-
 src/HaddockHtml.hs | 20 +++++++-------------
 2 files changed, 22 insertions(+), 14 deletions(-)

diff --git a/html/haddock.css b/html/haddock.css
index 36b2d883..032ec553 100644
--- a/html/haddock.css
+++ b/html/haddock.css
@@ -61,7 +61,7 @@ TD.recfield { padding-left: 20px }
 TD.doc  { 
   padding-top: 2px;
   font-family: sans-serif;  
-  padding-left: 10px
+  padding-left: 10apx
   }
 
 TD.cbody  { 
@@ -114,3 +114,17 @@ TD.section4 {
   font-weight: bold;
   font-size: 100%
   }
+
+
+TD.infohead {
+  color: #ffffff;
+  font-weight: bold;
+  padding-right: 10px;
+  text-align: left;
+}
+
+TD.infoval {
+  color: #ffffff;
+  padding-right: 10px;
+  text-align: left;
+}
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 327d931e..7f05d42f 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -129,19 +129,13 @@ moduleInfo iface
   | Nothing   <- iface_info iface = Html.emptyTable
   | Just info <- iface_info iface =
           tda [align "right"] <<
-             (table ! [width "300", border 0, cellspacing 0, cellpadding 0] << (
-        	  (tda [width "50%"] << font ! [color "#ffffff"] <<
-        		bold << toHtml "Portability") <->
-        	  (tda [width "50%"] << font ! [color "#ffffff"] <<
-        		toHtml (portability info)) </>
-        	  (tda [width "50%"] << font ! [color "#ffffff"] <<
-        		bold << toHtml "Stability") <->
-        	  (tda [width "50%"] << font ! [color "#ffffff"] <<
-        		toHtml (stability info)) </>
-        	  (tda [width "50%"] << font ! [color "#ffffff"] <<
-        		bold << toHtml "Maintainer") <->
-        	  (tda [width "50%"] << font ! [color "#ffffff"] <<
-        		toHtml (maintainer info))
+             (table ! [border 0, cellspacing 0, cellpadding 0] << (
+        	  (tda [theclass "infohead"] << toHtml "Portability") <->
+        	  (tda [theclass "infoval"] << toHtml (portability info)) </>
+        	  (tda [theclass "infohead"] << toHtml "Stability") <->
+        	  (tda [theclass "infoval"] << toHtml (stability info)) </>
+        	  (tda [theclass "infohead"] << toHtml "Maintainer") <->
+        	  (tda [theclass "infoval"] << toHtml (maintainer info))
               ))
 
 -- ---------------------------------------------------------------------------
-- 
cgit v1.2.3