From 34be96e559e88f555c5b4180d62bd65b1369dced Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Fri, 23 Jul 2010 19:13:59 +0000
Subject: tweaks for dl layout, though still not used

---
 src/Haddock/Backends/Xhtml/Layout.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/Haddock/Backends/Xhtml')

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
 -}
 
 
-- 
cgit v1.2.3