From 593247fc0098b996a572df83c70957601c4d7f62 Mon Sep 17 00:00:00 2001
From: davve <davve@dtek.chalmers.se>
Date: Tue, 6 Feb 2007 19:48:48 +0000
Subject: Remove -package flag, GHC's can be used instead

---
 src/Main.hs | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'src')

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 
 
-- 
cgit v1.2.3