diff options
Diffstat (limited to 'src')
| -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 -------------------------------------------------------------------------------- |