From 4bc5e999c3b2c2bbf34c183218be6004c6cee54f Mon Sep 17 00:00:00 2001 From: David Waern Date: Sat, 22 Jan 2011 00:00:35 +0000 Subject: Put title outside doc div when HTML:fying title+prologue Avoids indenting the title, and makes more sense since the title is not a doc string anyway. --- src/Haddock/Backends/Xhtml.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Haddock') diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs index 6ca9d376..3bc2dd6f 100644 --- a/src/Haddock/Backends/Xhtml.hs +++ b/src/Haddock/Backends/Xhtml.hs @@ -246,7 +246,7 @@ ppHtmlContents odir doctitle _maybe_package ppPrologue :: String -> Maybe (Doc GHC.RdrName) -> Html ppPrologue _ Nothing = noHtml ppPrologue title (Just doc) = - docElement divDescription << (h1 << title +++ rdrDocToHtml doc) + divDescription << (h1 << title +++ docElement thediv (rdrDocToHtml doc)) ppModuleTree :: [ModuleTree] -> Html -- cgit v1.2.3