Tweak the deprecated flags warning
authorIan Lynagh <igloo@earth.li>
Sat, 14 Jun 2008 17:48:50 +0000 (17:48 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 14 Jun 2008 17:48:50 +0000 (17:48 +0000)
compiler/main/CmdLineParser.hs

index 4ff78f6..8112dbb 100644 (file)
@@ -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'