diff options
| author | David Terei <davidterei@gmail.com> | 2011-10-06 18:34:52 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-10-17 13:50:07 -0700 |
| commit | c532c16ff5c93ea5330da4e81b2171d2f20e0653 (patch) | |
| tree | 1c78def1b001c536316d31990f12c3864cf5300e /compiler/main/CmdLineParser.hs | |
| parent | 189f6663d41367f34f1b34819d344f1be3495a84 (diff) | |
| download | haskell-c532c16ff5c93ea5330da4e81b2171d2f20e0653.tar.gz | |
Formatting wibbles.
Diffstat (limited to 'compiler/main/CmdLineParser.hs')
| -rw-r--r-- | compiler/main/CmdLineParser.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/main/CmdLineParser.hs b/compiler/main/CmdLineParser.hs index cbdf254204..9fe238122b 100644 --- a/compiler/main/CmdLineParser.hs +++ b/compiler/main/CmdLineParser.hs @@ -53,7 +53,7 @@ data OptKind m -- Suppose the flag is -f -------------------------------------------------------- --- The EwM monad +-- The EwM monad -------------------------------------------------------- type Err = Located String @@ -84,7 +84,7 @@ addWarn msg = EwM (\(L loc _) es ws -> return (es, ws `snocBag` L loc w, ())) w = "Warning: " ++ msg deprecate :: Monad m => String -> EwM m () -deprecate s +deprecate s = do arg <- getArg addWarn (arg ++ " is deprecated: " ++ s) @@ -146,9 +146,9 @@ processArgs spec args let b = process rest spare in (setArg locArg $ action) >> b - Nothing -> process args (locArg : spare) + Nothing -> process args (locArg : spare) - process (arg : args) spare = process args (arg : spare) + process (arg : args) spare = process args (arg : spare) processOneArg :: OptKind m -> String -> String -> [Located String] |