diff options
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Layout.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Layout.hs | 4 |
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 -} |