[project @ 2000-07-25 12:24:14 by michaelw]

giving the version number when asked for is NOT an error, therefore
output now goes to stdout (cf. Coding Standards)

diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs
index b40d18b..e2f7fa1 100644 (file)
--- a/ghc/driver/Main.hs
+++ b/ghc/driver/Main.hs
@@ -1750,10 +1750,10 @@ opts =
   
 
       ------- version ----------------------------------------------------
-  ,  ( "-version"       , NoArg (do hPutStrLn stderr (cProjectName
+  ,  ( "-version"       , NoArg (do hPutStrLn stdout (cProjectName
                                      ++ ", version " ++ version_str)
                                     exitWith ExitSuccess))
-  ,  ( "-numeric-version", NoArg (do hPutStrLn stderr version_str
+  ,  ( "-numeric-version", NoArg (do hPutStrLn stdout version_str
                                     exitWith ExitSuccess))
 
       ------- verbosity ----------------------------------------------------