From 05a1cc6e55c645da16272e68c2779021e31e419a Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Sun, 29 Aug 2010 15:14:54 +0000
Subject: make portability block be a table - solves layout issues

---
 src/Haddock/Backends/Xhtml.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'src/Haddock/Backends')

diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index 1ae8b12d..9259ae61 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -189,10 +189,11 @@ moduleInfo iface =
    let
       info = ifaceInfo iface
 
-      doOneEntry :: (String, (HaddockModInfo GHC.Name) -> Maybe String) -> Maybe (String, String)
-      doOneEntry (fieldName, field) = field info >>= \a -> return (fieldName, a)
+      doOneEntry :: (String, (HaddockModInfo GHC.Name) -> Maybe String) -> Maybe HtmlTable
+      doOneEntry (fieldName, field) =
+        field info >>= \a -> return (th << fieldName <-> td << a)
 
-      entries :: [(String, String)]
+      entries :: [HtmlTable]
       entries = mapMaybe doOneEntry [
          ("Portability",hmi_portability),
          ("Stability",hmi_stability),
@@ -201,7 +202,7 @@ moduleInfo iface =
    in
       case entries of
          [] -> noHtml
-         _ -> defList entries ! [theclass "info"]
+         _ -> table ! [theclass "info"] << aboves entries
 
 
 --------------------------------------------------------------------------------
-- 
cgit v1.2.3