diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-23 19:13:59 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-23 19:13:59 +0000 |
| commit | 34be96e559e88f555c5b4180d62bd65b1369dced (patch) | |
| tree | 546e80fd0a3fdb84916302e00545b0369b1b8de5 /src/Haddock | |
| parent | a194dcc8be2f20b768d86aef8cffaf1d0f193d03 (diff) | |
tweaks for dl layout, though still not used
Diffstat (limited to 'src/Haddock')
| -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 -} |