From ba6251a02df22db2997bcc159db61cdb0c700b3f Mon Sep 17 00:00:00 2001
From: davve <davve@dtek.chalmers.se>
Date: Fri, 12 Jan 2007 18:27:55 +0000
Subject: Remove read/dump-interface (again)

---
 src/Main.hs | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 871f2339..05b32662 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -257,8 +257,6 @@ data Flag
 --  | Flag_DocBook
   | Flag_Heading String
   | Flag_Package String
-  | Flag_ReadInterface String
-  | Flag_DumpInterface String
   | Flag_Html
   | Flag_Hoogle
   | Flag_HtmlHelp String
@@ -290,11 +288,7 @@ options backwardsCompat =
   [
     Option ['o']  ["odir"]     (ReqArg Flag_OutputDir "DIR")
 	"directory in which to put the output files",
-    Option ['i'] ["read-interface"] (ReqArg Flag_ReadInterface "FILE")
-  "read an interface from FILE",
-    Option ['D']  ["dump-interface"]   (ReqArg Flag_DumpInterface "FILE")
-  "dump an interface for these modules in FILE",
-    Option ['l']  ["lib"]         (ReqArg Flag_Lib "DIR") 
+   Option ['l']  ["lib"]         (ReqArg Flag_Lib "DIR") 
 	"location of Haddock's auxiliary files",
 --    Option ['S']  ["docbook"]  (NoArg Flag_DocBook)
 --	"output in DocBook XML",
@@ -459,11 +453,6 @@ run flags modules extEnv = do
                 maybe_contents_url maybe_index_url
     copyHtmlBits odir libdir css_file
 
-  case [str | Flag_DumpInterface str <- flags] of
-        [] -> return ()
-        fs -> let filename = (last fs) in 
-              savePackageFile filename homeEnv
-
 {- 
 instance Outputable (DocEntity Name) where
   ppr (DocEntity d) = ppr d
-- 
cgit v1.2.3