aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <unknown>2007-08-17 11:26:59 +0000
committerDavid Waern <unknown>2007-08-17 11:26:59 +0000
commit25bdb159aa45ddeb2af89e09a5d7ff517cfc2ec7 (patch)
tree4b5a8043e03da227a93acef9869e7523da9095e7
parent070a0d9cd70eca65400b9a10fe7b0d45424fe498 (diff)
Small comment/layout fixes
-rw-r--r--src/Haddock/Options.hs16
-rw-r--r--src/Main.hs3
2 files changed, 13 insertions, 6 deletions
diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs
index 18b5597c..5e420ccc 100644
--- a/src/Haddock/Options.hs
+++ b/src/Haddock/Options.hs
@@ -1,3 +1,12 @@
+--
+-- Haddock - A Haskell Documentation Tool
+--
+-- (c) Simon Marlow 2003
+--
+-- Ported to use the GHC API by David Waern during "Summer of Code" 2006
+--
+
+
module Haddock.Options (
parseHaddockOpts,
Flag(..),
@@ -14,6 +23,9 @@ getUsage :: IO String
getUsage = do
prog <- getProgramName
return $ usageInfo (usageHeader prog) (options False)
+ where
+ usageHeader :: String -> String
+ usageHeader prog = "Usage: " ++ prog ++ " [OPTION...] file...\n"
parseHaddockOpts :: [String] -> IO ([Flag], [String])
@@ -25,10 +37,6 @@ parseHaddockOpts words =
throwE (concat errors ++ usage)
-usageHeader :: String -> String
-usageHeader prog = "Usage: " ++ prog ++ " [OPTION...] file...\n"
-
-
data Flag
= Flag_CSS String
| Flag_Debug
diff --git a/src/Main.hs b/src/Main.hs
index e86cede5..7223b8f6 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -250,7 +250,6 @@ parseGhcFlags session ghcFlags = do
return dynflags'
-
byeVersion =
bye ("Haddock version " ++ projectVersion ++
", (c) Simon Marlow 2003; ported to the GHC-API by David Waern 2006\n")
@@ -1212,7 +1211,7 @@ type ErrMsgM a = Writer [ErrMsg] a
--------------------------------------------------------------------------------
--- | Represents the installed haddock information for a package
+-- | Represents the installed Haddock information of a package
data HaddockPackage = HaddockPackage {
pdModules :: [Module],
pdDocEnv :: DocEnv,