From 85ce0237c34e9357eef4d26d7084d3452c37f4f4 Mon Sep 17 00:00:00 2001 From: krasimir Date: Sat, 31 Jul 2004 14:53:28 +0000 Subject: [haddock @ 2004-07-31 14:53:28 by krasimir] HtmlHelp 1.x --- src/HaddockHtml.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'src/HaddockHtml.hs') diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index eda488e3..719186ab 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -86,6 +86,8 @@ ppHtmlHelpFiles doctitle maybe_package ifaces odir maybe_html_help_format = do -- Generate index and contents page for Html Help if requested case maybe_html_help_format of + Just "mshelp" -> do + ppHHProject odir doctitle maybe_package visible_ifaces Just "mshelp2" -> do ppHH2Files odir maybe_package visible_ifaces ppHH2Collection odir doctitle maybe_package @@ -230,7 +232,7 @@ ppHtmlContents odir doctitle maybe_package maybe_html_help_format maybe_index_ur -- Generate contents page for Html Help if requested case maybe_html_help_format of Nothing -> return () - Just "mshelp" -> ppHHContents odir tree + Just "mshelp" -> ppHHContents odir maybe_package tree Just "mshelp2" -> ppHH2Contents odir maybe_package tree Just format -> fail ("The "++format++" format is not implemented") @@ -315,7 +317,7 @@ ppHtmlIndex odir doctitle maybe_package maybe_html_help_format maybe_contents_ur -- Generate index and contents page for Html Help if requested case maybe_html_help_format of Nothing -> return () - Just "mshelp" -> ppHHIndex odir ifaces + Just "mshelp" -> ppHHIndex odir maybe_package ifaces Just "mshelp2" -> ppHH2Index odir maybe_package ifaces Just format -> fail ("The "++format++" format is not implemented") where -- cgit v1.2.3