diff options
| author | panne <unknown> | 2004-03-27 12:52:34 +0000 |
|---|---|---|
| committer | panne <unknown> | 2004-03-27 12:52:34 +0000 |
| commit | 562b185ae69a55491790e0fc358971ed31f4bf45 (patch) | |
| tree | c67fe0b73a31ede44f72d74d63ca00fa27b20226 | |
| parent | b99e6f8c83139f9c960a0ee2585ccdd2681b636c (diff) | |
[haddock @ 2004-03-27 12:52:34 by panne]
Add a doctype for the contents page, too.
| -rw-r--r-- | src/HaddockHtml.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |