From f451d5c104dcd21712ccd8fc5af02246d4894f83 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 2 Feb 2005 13:40:34 +0000
Subject: [PATCH] [project @ 2005-02-02 13:40:34 by simonpj] Dump package
 config only with -v4 Dump module dependencies (ghc -M) with
 -v2

---
 ghc/compiler/main/DriverMkDepend.hs |    4 ++--
 ghc/compiler/main/Main.hs           |    4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/main/DriverMkDepend.hs b/ghc/compiler/main/DriverMkDepend.hs
index a303deb..499fb05 100644
--- a/ghc/compiler/main/DriverMkDepend.hs
+++ b/ghc/compiler/main/DriverMkDepend.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverMkDepend.hs,v 1.38 2005/01/27 14:38:29 simonmar Exp $
+-- $Id: DriverMkDepend.hs,v 1.39 2005/02/02 13:40:34 simonpj Exp $
 --
 -- GHC Driver
 --
@@ -62,7 +62,7 @@ doMkDependHS dflags srcs
 	; let sorted = cmTopSort False mod_summaries
 
 		-- Print out the dependencies if wanted
-	; if verbosity dflags >= 3 then
+	; if verbosity dflags >= 2 then
 		hPutStrLn stderr (showSDoc (text "Module dependencies" $$ ppr sorted))
 	  else return ()
 		
diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index a70f37a..7f7d57a 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-warn-incomplete-patterns -optc-DNON_POSIX_SOURCE #-}
 
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.146 2005/02/02 13:27:07 simonpj Exp $
+-- $Id: Main.hs,v 1.147 2005/02/02 13:40:34 simonpj Exp $
 --
 -- GHC Driver program
 --
@@ -322,7 +322,7 @@ showBanners mode dflags static_opts = do
 	   hPutStr stderr ", for Haskell 98, compiled by GHC version "
 	   hPutStrLn stderr cBooterVersion
 
-   when (verb >= 3) $
+   when (verb >= 4) $
 	dumpPackages dflags
 
    when (verb >= 3) $
-- 
1.7.10.4