aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorsimonmar <unknown>2002-07-23 10:18:46 +0000
committersimonmar <unknown>2002-07-23 10:18:46 +0000
commitf1ec1813ac8f710cc6867c2244e3e922c6675ce9 (patch)
tree2360262a62d9eb08cd629b2140f344b5901e4b58 /src
parenta77bb373c7a5f9de55fd3de7b95bc51d0e00292b (diff)
[haddock @ 2002-07-23 10:18:46 by simonmar]
Add a version banner when invoked with -v
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs35
1 files changed, 23 insertions, 12 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 2d2433a1..94a53b7d 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -6,6 +6,7 @@
module Main (main) where
+import HaddockVersion
import HaddockRename
import HaddockParse
import HaddockLex
@@ -55,19 +56,20 @@ main = do
usage = usageInfo "usage: haddock [OPTION] file...\n" options
data Flag
- = Flag_Verbose
- | Flag_DocBook
+ = Flag_CSS String
| Flag_Debug
- | Flag_Html
+ | Flag_DocBook
+ | Flag_DumpInterface FilePath
| Flag_Heading String
- | Flag_Prologue FilePath
- | Flag_SourceURL String
- | Flag_CSS String
+ | Flag_Html
| Flag_Lib String
+ | Flag_MSHtmlHelp
+ | Flag_NoImplicitPrelude
| Flag_OutputDir FilePath
+ | Flag_Prologue FilePath
| Flag_ReadInterface FilePath
- | Flag_DumpInterface FilePath
- | Flag_NoImplicitPrelude
+ | Flag_SourceURL String
+ | Flag_Verbose
deriving (Eq)
options =
@@ -90,12 +92,14 @@ options =
"be verbose",
Option ['i'] ["read-interface"] (ReqArg Flag_ReadInterface "FILE")
"read an interface from FILE",
- Option [] ["dump-interface"] (ReqArg Flag_DumpInterface "FILE")
- "dump an interface for these modules in FILE",
Option [] ["css"] (ReqArg Flag_CSS "FILE")
"The CSS file to use for HTML output",
+ Option [] ["dump-interface"] (ReqArg Flag_DumpInterface "FILE")
+ "dump an interface for these modules in FILE",
Option [] ["lib"] (ReqArg Flag_Lib "DIR")
- "Directory containing Haddock's auxiliary files",
+ "Location of Haddock's auxiliary files",
+ Option [] ["ms-help"] (NoArg Flag_MSHtmlHelp)
+ "Produce Microsoft HTML Help files (with -h)",
Option [] ["no-implicit-prelude"] (NoArg Flag_NoImplicitPrelude)
"Do not assume Prelude is imported"
]
@@ -112,6 +116,11 @@ run flags files = do
[] -> Nothing
(t:ts) -> Just t
+ when (Flag_Verbose `elem` flags) $
+ hPutStrLn stderr
+ ("Haddock version " ++ projectVersion ++
+ ", (c) Simon Marlow 2002")
+
libdir <- case [str | Flag_Lib str <- flags] of
[] -> dieMsg "no --lib option"
fs -> return (last fs)
@@ -178,7 +187,7 @@ run flags files = do
when (Flag_Html `elem` flags) $
ppHtml title source_url these_mod_ifaces odir css_file
- libdir inst_maps prologue
+ libdir inst_maps prologue (Flag_MSHtmlHelp `elem` flags)
-- dump an interface if requested
case dump_iface of
@@ -321,6 +330,8 @@ mkInterface no_implicit_prelude mod_map filename
buildImportEnv mod_map mod exported_visible_names
implicit_imps
+ -- trace (show (fmToList orig_env)) $ do
+ -- trace (show (fmToList import_env)) $ do
let
final_decls = orig_decls