diff options
| author | davve <davve@dtek.chalmers.se> | 2007-01-12 18:27:55 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2007-01-12 18:27:55 +0000 |
| commit | ba6251a02df22db2997bcc159db61cdb0c700b3f (patch) | |
| tree | 2b28a2cf400ec0c5b37d6a9b676528f85ff14f09 /src/Main.hs | |
| parent | d18587ab5acbf3209bea8cadc7519468c11a8fdd (diff) | |
Remove read/dump-interface (again)
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 13 |
1 files changed, 1 insertions, 12 deletions
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 |