diff options
| author | panne <unknown> | 2004-08-02 20:32:29 +0000 |
|---|---|---|
| committer | panne <unknown> | 2004-08-02 20:32:29 +0000 |
| commit | 37830bff36b9344c11694d642bca9789f435dede (patch) | |
| tree | 320b4ce4e621ea5dec71704002053f0508ca1d7c /src/HaddockHtml.hs | |
| parent | c8fbacfa67d08d382a74bcaf5a3311c0d7e7debb (diff) | |
[haddock @ 2004-08-02 20:32:28 by panne]
Nuked dead code
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 8c17547f..af690fbe 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -229,7 +229,7 @@ ppHtmlContents odir doctitle maybe_package maybe_html_help_format maybe_index_ur s15 </> footer ) - writeFile (odir ++ pathSeparator:contentsHtmlFile) (renderHtml html False) + writeFile (odir ++ pathSeparator:contentsHtmlFile) (renderHtml html) -- Generate contents page for Html Help if requested case maybe_html_help_format of @@ -315,7 +315,7 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format maybe_contents_ur when split_indices $ mapM_ (do_sub_index index) initialChars - writeFile (odir ++ pathSeparator:indexHtmlFile) (renderHtml html False) + writeFile (odir ++ pathSeparator:indexHtmlFile) (renderHtml html) -- Generate index and contents page for Html Help if requested case maybe_html_help_format of @@ -346,7 +346,7 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format maybe_contents_ur do_sub_index this_ix c = unless (null index_part) $ writeFile (odir ++ pathSeparator:subIndexHtmlFile c) - (renderHtml html False) + (renderHtml html) where html = header (thetitle (toHtml (doctitle ++ " (Index)")) +++ thelink ! [href cssFile, @@ -435,7 +435,7 @@ ppHtmlModule odir doctitle source_url ifaceToHtml mdl iface </> s15 </> footer ) - writeFile (odir ++ pathSeparator:moduleHtmlFile mdl) (renderHtml html False) + writeFile (odir ++ pathSeparator:moduleHtmlFile mdl) (renderHtml html) ifaceToHtml :: String -> Interface -> HtmlTable ifaceToHtml _ iface |