From 1d75d4c41896d6d7b34a6b3709f40e63f959af04 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 4 Jul 2001 15:43:38 +0000
Subject: [PATCH] [project @ 2001-07-04 15:43:38 by simonmar] Only print out
 the GHCi banner when verbosity >= 1, so you can omit the
 banner with -v0 (useful for tests where you don't want the
 GHC version number appearing in the output).

---
 ghc/compiler/main/Main.hs |   16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index bf34a74..5d59167 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -fno-warn-incomplete-patterns #-}
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.79 2001/07/03 11:14:33 simonmar Exp $
+-- $Id: Main.hs,v 1.80 2001/07/04 15:43:38 simonmar Exp $
 --
 -- GHC Driver program
 --
@@ -160,12 +160,6 @@ main =
    (flags2, mode, stop_flag) <- getGhcMode argv'
    writeIORef v_GhcMode mode
 
-	-- Show the GHCi banner?
-#  ifdef GHCI
-   when (mode == DoInteractive) $
-      hPutStrLn stdout ghciWelcomeMsg
-#  endif
-
 	-- process all the other arguments, and get the source files
    non_static <- processArgs static_flags flags2 []
 
@@ -233,9 +227,15 @@ main =
     	-- complain about any unknown flags
    mapM unknownFlagErr [ f | f@('-':_) <- srcs ]
 
-	-- Display details of the configuration in verbose mode
    verb <- dynFlag verbosity
 
+	-- Show the GHCi banner
+#  ifdef GHCI
+   when (mode == DoInteractive && verb >= 1) $
+      hPutStrLn stdout ghciWelcomeMsg
+#  endif
+
+	-- Display details of the configuration in verbose mode
    when (verb >= 2) 
 	(do hPutStr stderr "Glasgow Haskell Compiler, Version "
  	    hPutStr stderr cProjectVersion
-- 
1.7.10.4