diff options
| author | michaelw <unknown> | 2000-07-25 12:24:14 +0000 |
|---|---|---|
| committer | michaelw <unknown> | 2000-07-25 12:24:14 +0000 |
| commit | d6e97b4ebe0e90ecfd6e8d4b8fd1ef594d15b9e0 (patch) | |
| tree | c628505aa6dbfbfbd4c1657233f9287601c7e5a9 | |
| parent | a8e67124d36c0855a594593627a50e55dc7954ba (diff) | |
| download | haskell-d6e97b4ebe0e90ecfd6e8d4b8fd1ef594d15b9e0.tar.gz | |
[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)
| -rw-r--r-- | ghc/driver/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs index b40d18b59d..e2f7fa1ac7 100644 --- 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 ---------------------------------------------------- |