aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-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
-}