X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FCmdLineParser.hs;h=8112dbb7859ab7dac9e1a23af70a24f112d4387c;hb=b065ad6504883d2c9f9713e5c33efa537021d4c0;hp=4ff78f674df667de48e5223ea81bfc39f121b573;hpb=5b87f4c4cdfb303d3d4c408ca94a9e94b644da5b;p=ghc-hetmet.git diff --git a/compiler/main/CmdLineParser.hs b/compiler/main/CmdLineParser.hs index 4ff78f6..8112dbb 100644 --- a/compiler/main/CmdLineParser.hs +++ b/compiler/main/CmdLineParser.hs @@ -60,7 +60,7 @@ processArgs spec args = process spec args [] [] [] Just (rest, action, deprecated) -> let warns' = case deprecated of Deprecated warning -> - (dash_arg ++ " is deprecated: " ++ warning) : warns + ("Warning: " ++ dash_arg ++ " is deprecated: " ++ warning) : warns Supported -> warns in case processOneArg action rest arg args of Left err -> process spec args spare (err:errs) warns'