From c9f149c64c44dcc7fa14d30767a205a991510430 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 10 Jul 2002 10:26:11 +0000
Subject: [haddock @ 2002-07-10 10:26:11 by simonmar] Tweaks to the MS Help
 support: the extra files are now only generated if you ask for them
 (--ms-help).

---
 src/Main.hs | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index 30d670ec..6b814c1e 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -55,19 +55,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 =
@@ -95,9 +96,11 @@ options =
     Option []  ["css"]         (ReqArg Flag_CSS "FILE") 
 	"The CSS file to use for HTML output",
     Option []  ["lib"]         (ReqArg Flag_Lib "DIR") 
-	"Directory containing Haddock's auxiliary files",
+	"Location of Haddock's auxiliary files",
     Option []  ["no-implicit-prelude"] (NoArg Flag_NoImplicitPrelude)
- 	"Do not assume Prelude is imported"
+ 	"Do not assume Prelude is imported",
+    Option []  ["ms-help"]    (NoArg Flag_MSHtmlHelp)
+	"Produce Microsoft HTML Help files (with -h)"
   ]
 
 saved_flags :: IORef [Flag]
@@ -178,7 +181,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
-- 
cgit v1.2.3