From 562b185ae69a55491790e0fc358971ed31f4bf45 Mon Sep 17 00:00:00 2001
From: panne <unknown>
Date: Sat, 27 Mar 2004 12:52:34 +0000
Subject: [haddock @ 2004-03-27 12:52:34 by panne] Add a doctype for the
 contents page, too.

---
 src/HaddockHtml.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index a84183af..81235fec 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -207,7 +207,7 @@ ppHtmlContents odir doctitle maybe_index_url
 	    s15 </>
 	    footer
 	  )
-  writeFile (odir ++ pathSeparator:contentsHtmlFile) (prettyHtml html)
+  writeFile (odir ++ pathSeparator:contentsHtmlFile) (renderHtml html False)
 
 ppPrologue :: String -> Maybe Doc -> HtmlTable
 ppPrologue title Nothing = Html.emptyTable
-- 
cgit v1.2.3