aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-08-29 15:14:54 +0000
committerMark Lentczner <markl@glyphic.com>2010-08-29 15:14:54 +0000
commit05a1cc6e55c645da16272e68c2779021e31e419a (patch)
treea1b6fc6c21d7b61579632391eedf9b7faea0afb9 /src/Haddock/Backends
parent1de86e8aaa5719c248b03f1d3a166849fedc3919 (diff)
make portability block be a table - solves layout issues
Diffstat (limited to 'src/Haddock/Backends')
-rw-r--r--src/Haddock/Backends/Xhtml.hs9
1 files changed, 5 insertions, 4 deletions
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
--------------------------------------------------------------------------------