[add man page
John Meacham <john@repetae.net>**20080208131833] hunk ./Makefile.am 69
+jhc.1: Options.hs $(top_srcdir)/configure.ac
+	$(MAKE) $(AM_MAKEFLAGS) jhc$(EXEEXT)
+	help2man -N --output=jhc.1 ./jhc$(EXEEXT)
+
+dist_man_MANS = jhc.1
+
hunk ./Makefile.am 172
-	-[ -e base.log ] && mv -f base.log base.log.bak
-	set -o pipefail; ./jhc -v -funboxed-tuples $(RTSOPTS) $(JHC_TEST)  -ilib/base --noauto --build-hl lib/base/base.cabal -o $@ 2>&1 | tee base.log
+	./jhc -v -funboxed-tuples $(RTSOPTS) $(JHC_TEST)  -ilib/base --noauto --build-hl lib/base/base.cabal -o $@
+
+haskell98-1.0.hl: jhc lib/haskell98/haskell98.cabal base-1.0.hl
+	./jhc -v $(RTSOPTS) $(JHC_TEST) -ilib/haskell98 --noauto -L- -L. -p base --build-hl lib/haskell98.cabal -o $@
+
+
+libs: base-1.0.hl haskell98-1.0.hl
hunk ./Makefile.am 180
-base-1.0.prof.hl: jhc lib/base/base.cabal
-	-[ -e base.prof.log ] && mv -f base.prof.log base.prof.log.bak
-	./jhcp -v $(RTSOPTS) $(JHC_TEST) -ilib/base --noauto --build-hl lib/base/base.cabal -o base-1.0.prof.hl +RTS $(PROF_OPTS)  2>&1 | tee base.log
hunk ./Options.hs 44
+          | ShowHelp       -- ^ Show help message and die.
hunk ./Options.hs 120
+    , Option []    ["help"]      (NoArg  (optMode_s ShowHelp))         "print help information and exit"
hunk ./Options.hs 197
-processOptions = getArguments >>= (\argv -> either putErrDie return $ do
+processOptions = do
+    argv <- getArguments
hunk ./Options.hs 203
-    when (rc /= []) $ fail (concat rc ++ usageInfo header theoptions ++ trailer)
-    o1 <- postProcessFD (foldl (flip ($)) opt o)
-    o2 <- postProcessFO o1
+    when (rc /= []) $ putErrDie (concat rc ++ usageInfo header theoptions ++ trailer)
+    o1 <- either putErrDie return $ postProcessFD (foldl (flip ($)) opt o)
+    o2 <- either putErrDie return $ postProcessFO o1
+    when (optMode o2 == ShowHelp) $ do
+        putStrLn (usageInfo header theoptions ++ trailer)
+        exitSuccess
hunk ./Options.hs 211
-      False-> return (o2 { optArgs = ns, optHls  = ("base":"haskell98":optHls o2) }))
+      False-> return (o2 { optArgs = ns, optHls  = ("base":"haskell98":optHls o2) })
hunk ./jhc.spec.in 35
+%{_mandir}/man1/jhc.1