diff options
| author | davve <davve@dtek.chalmers.se> | 2006-10-05 19:44:42 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2006-10-05 19:44:42 +0000 |
| commit | cd21c0c1461390c498c2550ee1b7bcdeaeca8dbb (patch) | |
| tree | bfd8d9a4d9a902b304ac834cceed45ed2072381a | |
| parent | 67e7d252650f10f3be73f2129887932babd4efef (diff) | |
Remove read/dump interface flags
| -rw-r--r-- | src/Main.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/src/Main.hs b/src/Main.hs index 550884f5..5ce7409f 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -218,12 +218,10 @@ sortAndCheckModules session flags files = defaultErrorHandler flags $ do (mod, f, CheckedModule a (Just b) (Just c) (Just d)) <- modules ] - data Flag = Flag_CSS String | Flag_Debug -- | Flag_DocBook - | Flag_DumpInterface FilePath | Flag_Heading String | Flag_Package String | Flag_Html @@ -233,7 +231,6 @@ data Flag | Flag_NoImplicitPrelude | Flag_OutputDir FilePath | Flag_Prologue FilePath - | Flag_ReadInterface FilePath | Flag_SourceBaseURL String | Flag_SourceModuleURL String | Flag_SourceEntityURL String @@ -258,10 +255,6 @@ 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") "location of Haddock's auxiliary files", -- Option ['S'] ["docbook"] (NoArg Flag_DocBook) @@ -368,11 +361,6 @@ run flags modules extEnv = do fs -> return (last fs) let - - dumpIface = case [str | Flag_DumpInterface str <- flags] of - [] -> Nothing - fs -> Just (last fs) - maybe_contents_url = case [url | Flag_UseContents url <- flags] of [] -> Nothing |