diff options
| -rw-r--r-- | src/Haddock/Options.hs | 16 | ||||
| -rw-r--r-- | src/Main.hs | 3 |
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, |