diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-07-22 06:43:32 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-07-22 06:43:32 +0000 |
| commit | aaa55d835f3adeb38b4d811b1ef70bcd78c8ee0c (patch) | |
| tree | e19d7a5eebb02349625888af39312c13a58f733c /src/Haddock/Options.hs | |
| parent | 7e2afa2b0d80759066fd872bc6900c59534b0b46 (diff) | |
remove --html-help support - it was old, out-of-date, and mostly missing
Diffstat (limited to 'src/Haddock/Options.hs')
| -rw-r--r-- | src/Haddock/Options.hs | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs index 53b9337d..132a5e52 100644 --- a/src/Haddock/Options.hs +++ b/src/Haddock/Options.hs @@ -19,7 +19,6 @@ module Haddock.Options ( outputDir, optContentsUrl, optIndexUrl, - optHtmlHelpFormat, optCssFile, optSourceUrls, optWikiUrls, @@ -47,7 +46,6 @@ data Flag | Flag_Heading String | Flag_Html | Flag_Hoogle - | Flag_HtmlHelp String | Flag_Lib String | Flag_OutputDir FilePath | Flag_Prologue FilePath @@ -100,8 +98,6 @@ options backwardsCompat = Option ['U'] ["use-unicode"] (NoArg Flag_UseUnicode) "use Unicode in HTML output", 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") "URL for a source code link on the contents\nand index pages", Option ['s'] (if backwardsCompat then ["source", "source-module"] else ["source-module"]) @@ -193,10 +189,6 @@ optIndexUrl :: [Flag] -> Maybe String optIndexUrl flags = optLast [ url | Flag_UseIndex url <- flags ] -optHtmlHelpFormat :: [Flag] -> Maybe String -optHtmlHelpFormat flags = optLast [ hhformat | Flag_HtmlHelp hhformat <- flags ] - - optCssFile :: [Flag] -> Maybe FilePath optCssFile flags = optLast [ str | Flag_CSS str <- flags ] |