diff options
| author | simonmar <unknown> | 2004-03-25 16:00:37 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2004-03-25 16:00:37 +0000 |
| commit | b7948ff0df532b33856884e66087f9ed340c6776 (patch) | |
| tree | 17de5a37bd278a46764acd2adc2ad15eae8d9e01 /src/HaddockHtml.hs | |
| parent | c2fff7f2d6c4776a4b8e2c39a6b964a9c7c175d1 (diff) | |
[haddock @ 2004-03-25 16:00:36 by simonmar]
Remove all that indentation in the generated HTML to keep the file sizes down.
Diffstat (limited to 'src/HaddockHtml.hs')
| -rw-r--r-- | src/HaddockHtml.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 527fe758..53d9a6c5 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) (renderHtml html) + writeFile (odir ++ pathSeparator:contentsHtmlFile) (prettyHtml html) ppPrologue :: String -> Maybe Doc -> HtmlTable ppPrologue title Nothing = Html.emptyTable @@ -265,7 +265,7 @@ ppHtmlIndex odir doctitle maybe_contents_url ifaces = do when split_indices $ mapM_ (do_sub_index index) initialChars - writeFile (odir ++ pathSeparator:indexHtmlFile) (renderHtml html) + writeFile (odir ++ pathSeparator:indexHtmlFile) (renderHtml html False) where split_indices = length index > 50 @@ -289,7 +289,7 @@ ppHtmlIndex odir doctitle maybe_contents_url ifaces = do do_sub_index this_ix c = unless (null index_part) $ writeFile (odir ++ pathSeparator:subIndexHtmlFile c) - (renderHtml html) + (renderHtml html False) where html = header (thetitle (toHtml (doctitle ++ " (Index)")) +++ thelink ! [href cssFile, @@ -378,7 +378,7 @@ ppHtmlModule odir doctitle source_url ifaceToHtml mdl iface </> s15 </> footer ) - writeFile (moduleHtmlFile odir mdl) (renderHtml html) + writeFile (moduleHtmlFile odir mdl) (renderHtml html False) ifaceToHtml :: String -> Interface -> HtmlTable ifaceToHtml _ iface |