diff options
| author | David Waern <unknown> | 2007-08-17 11:26:59 +0000 |
|---|---|---|
| committer | David Waern <unknown> | 2007-08-17 11:26:59 +0000 |
| commit | 25bdb159aa45ddeb2af89e09a5d7ff517cfc2ec7 (patch) | |
| tree | 4b5a8043e03da227a93acef9869e7523da9095e7 /src/Haddock/Options.hs | |
| parent | 070a0d9cd70eca65400b9a10fe7b0d45424fe498 (diff) | |
Small comment/layout fixes
Diffstat (limited to 'src/Haddock/Options.hs')
| -rw-r--r-- | src/Haddock/Options.hs | 16 |
1 files changed, 12 insertions, 4 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 |