X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FCmdLineParser.hs;h=8112dbb7859ab7dac9e1a23af70a24f112d4387c;hb=fec15030261949611ae41ab4a356a511db1bac4a;hp=4ff78f674df667de48e5223ea81bfc39f121b573;hpb=a7f88c2f7900257d6791286f653cf141ebcb81c4;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'