aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml/Layout.hs
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-07-23 19:13:59 +0000
committerMark Lentczner <markl@glyphic.com>2010-07-23 19:13:59 +0000
commit34be96e559e88f555c5b4180d62bd65b1369dced (patch)
tree546e80fd0a3fdb84916302e00545b0369b1b8de5 /src/Haddock/Backends/Xhtml/Layout.hs
parenta194dcc8be2f20b768d86aef8cffaf1d0f193d03 (diff)
tweaks for dl layout, though still not used
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Layout.hs')
-rw-r--r--src/Haddock/Backends/Xhtml/Layout.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs
index 775a1cdb..63b2b6c8 100644
--- a/src/Haddock/Backends/Xhtml/Layout.hs
+++ b/src/Haddock/Backends/Xhtml/Layout.hs
@@ -114,7 +114,7 @@ divSubDecls cssClass captionName = maybe noHtml wrap
subDlist :: [SubDecl] -> Maybe Html
subDlist [] = Nothing
-subDlist decls = Just $ dlist << map subEntry decls
+subDlist decls = Just $ dlist << map subEntry decls +++ clearDiv
where
subEntry (decl, mdoc, subs) =
dterm ! [theclass "src"] << decl
@@ -123,6 +123,8 @@ subDlist decls = Just $ dlist << map subEntry decls
Nothing `with` [] = spaceHtml
ma `with` bs = ma +++ bs
+
+ clearDiv = thediv ! [ theclass "clear" ] << noHtml
-}