diff options
| author | davve <davve@dtek.chalmers.se> | 2007-02-06 19:48:48 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2007-02-06 19:48:48 +0000 |
| commit | 593247fc0098b996a572df83c70957601c4d7f62 (patch) | |
| tree | 52dedafe7f46ebc60a1618ac2899a21b2c269db1 | |
| parent | 953d1fa77925a695311670e86b2f6cf27e00454c (diff) | |
Remove -package flag, GHC's can be used instead
| -rw-r--r-- | src/Main.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/Main.hs b/src/Main.hs index 1539316a..3c00b08b 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -255,7 +255,6 @@ data Flag | Flag_Debug -- | Flag_DocBook | Flag_Heading String - | Flag_Package String | Flag_Html | Flag_Hoogle | Flag_HtmlHelp String @@ -316,8 +315,6 @@ options backwardsCompat = "file containing prologue text", Option ['t'] ["title"] (ReqArg Flag_Heading "TITLE") "page heading", - Option ['k'] ["package"] (ReqArg Flag_Package "NAME") - "package name (optional)", Option ['n'] ["no-implicit-prelude"] (NoArg Flag_NoImplicitPrelude) "do not assume Prelude is imported", Option ['d'] ["debug"] (NoArg Flag_Debug) @@ -358,8 +355,6 @@ handleEagerFlags flags = do when ((Flag_GenIndex `elem` flags || Flag_GenContents `elem` flags) && Flag_Html `elem` flags) $ die ("-h cannot be used with --gen-index or --gen-contents") - - return (listToMaybe [str | Flag_Package str <- flags]) where whenFlag flag action = when (flag `elem` flags) action |