diff options
| -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 |