diff options
| author | krasimir <unknown> | 2004-08-01 19:52:08 +0000 |
|---|---|---|
| committer | krasimir <unknown> | 2004-08-01 19:52:08 +0000 |
| commit | fd7cc6bc85c5d3b016b3554d03957d14dce3c6d2 (patch) | |
| tree | d52b605a9dd737522d47a48ad1ef598f9d08f5d4 /src/Main.hs | |
| parent | 790fe21eec05d57e400909c218d749a24ae1a63a (diff) | |
[haddock @ 2004-08-01 19:52:06 by krasimir]
fix some bugs. Now I have got the entire libraries documentation in HtmlHelp 2.0 format.
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/Main.hs b/src/Main.hs index 797d8325..a0126fa3 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -139,9 +139,6 @@ options = "generate an HTML index from specified interfaces" ] -saved_flags :: IORef [Flag] -saved_flags = unsafePerformIO (newIORef (error "no flags yet")) - run :: [Flag] -> [FilePath] -> IO () run flags files = do when (Flag_Help `elem` flags) $ do @@ -211,10 +208,9 @@ run flags files = do visible_read_ifaces = filter ((OptHide `notElem`) . iface_options . snd) read_ifaces external_mods = map fst read_ifaces + pkg_paths = map fst ifaces_to_read - updateHTMLXRefs (map fst ifaces_to_read) read_ifaces_s - - writeIORef saved_flags flags + updateHTMLXRefs pkg_paths read_ifaces_s when ((Flag_GenIndex `elem` flags || Flag_GenContents `elem` flags) && Flag_Html `elem` flags) $ @@ -229,7 +225,7 @@ run flags files = do copyHtmlBits odir libdir css_file when (Flag_GenContents `elem` flags && Flag_GenIndex `elem` flags) $ do - ppHtmlHelpFiles title package visible_read_ifaces odir maybe_html_help_format + ppHtmlHelpFiles title package visible_read_ifaces odir maybe_html_help_format pkg_paths parsed_mods <- mapM parse_file files |