diff options
| author | Neil Mitchell <http://www.cs.york.ac.uk/~ndm/> | 2006-02-26 17:48:21 +0000 |
|---|---|---|
| committer | Neil Mitchell <http://www.cs.york.ac.uk/~ndm/> | 2006-02-26 17:48:21 +0000 |
| commit | c41876e6411717e5c54075f20339cb489ae6f7ce (patch) | |
| tree | e58159582d3a14a31cfcb7bd7f9bf3108bb44e6f /src/Main.hs | |
| parent | 9894706332f25e15f495e9dec06d523904af7b35 (diff) | |
Add Hoogle output option
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index 7001d88a..e9ffb604 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -11,6 +11,7 @@ import Binary import Digraph --import HaddockDB -- not compiling import HaddockHtml +import HaddockHoogle import HaddockLex import HaddockParse import HaddockRename @@ -72,6 +73,7 @@ data Flag | Flag_Heading String | Flag_Package String | Flag_Html + | Flag_Hoogle | Flag_HtmlHelp String | Flag_Lib String | Flag_NoImplicitPrelude @@ -111,6 +113,8 @@ options backwardsCompat = -- "output in DocBook XML", Option ['h'] ["html"] (NoArg Flag_Html) "output in HTML", + Option [] ["hoogle"] (NoArg Flag_Hoogle) + "output for Hoogle", Option [] ["html-help"] (ReqArg Flag_HtmlHelp "format") "produce index and table of contents in\nmshelp, mshelp2 or devhelp format (with -h)", Option [] ["source-base"] (ReqArg Flag_SourceBaseURL "URL") @@ -320,6 +324,9 @@ run flags files = do maybe_contents_url maybe_index_url copyHtmlBits odir libdir css_file + when (Flag_Hoogle `elem` flags) $ do + ppHoogle package these_ifaces odir + -- dump an interface if requested case dump_iface of Nothing -> return () |