From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 24 Jan 2006 14:55:51 +0000 (+0000)
Subject: send usage info to stdout, not stderr
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=3db62c3af730763b7ea40f927ca3a021aa2f7406;p=ghc-hetmet.git

send usage info to stdout, not stderr
---

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index 37ce970..17eb526 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -427,8 +427,8 @@ showGhcUsage cli_mode = do
   exitWith ExitSuccess
   where
      dump ""	      = return ()
-     dump ('$':'$':s) = hPutStr stderr progName >> dump s
-     dump (c:s)	      = hPutChar stderr c >> dump s
+     dump ('$':'$':s) = putStr progName >> dump s
+     dump (c:s)	      = putChar c >> dump s
 
 -- -----------------------------------------------------------------------------
 -- Util