aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordavve <davve@dtek.chalmers.se>2007-02-06 19:48:48 +0000
committerdavve <davve@dtek.chalmers.se>2007-02-06 19:48:48 +0000
commit593247fc0098b996a572df83c70957601c4d7f62 (patch)
tree52dedafe7f46ebc60a1618ac2899a21b2c269db1 /src
parent953d1fa77925a695311670e86b2f6cf27e00454c (diff)
Remove -package flag, GHC's can be used instead
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs5
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