diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-08-29 15:14:54 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-08-29 15:14:54 +0000 |
| commit | 05a1cc6e55c645da16272e68c2779021e31e419a (patch) | |
| tree | a1b6fc6c21d7b61579632391eedf9b7faea0afb9 /src/Haddock/Backends/Xhtml.hs | |
| parent | 1de86e8aaa5719c248b03f1d3a166849fedc3919 (diff) | |
make portability block be a table - solves layout issues
Diffstat (limited to 'src/Haddock/Backends/Xhtml.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml.hs | 9 |
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 -------------------------------------------------------------------------------- |