From 64b344bbf1378fda2aae7294544470765c5eecaf Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 3 Jul 2001 14:53:35 +0000
Subject: [PATCH] [project @ 2001-07-03 14:53:35 by simonpj] Dump package info
 only for -v3

---
 ghc/compiler/main/Packages.lhs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/compiler/main/Packages.lhs b/ghc/compiler/main/Packages.lhs
index 1569197..cad3af3 100644
--- a/ghc/compiler/main/Packages.lhs
+++ b/ghc/compiler/main/Packages.lhs
@@ -61,10 +61,10 @@ mungePackagePaths top_dir ps = map munge_pkg ps
 
 \begin{code}
 showPackages :: [PackageConfig] -> IO ()
--- Show package info on console, if verbosity is >=2
+-- Show package info on console, if verbosity is >= 3
 showPackages ps
   = do  { verb <- dynFlag verbosity
-	; dumpIfSet (verb >= 2) "Packages"
+	; dumpIfSet (verb >= 3) "Packages"
 	  	    (docToSDoc (vcat (map dumpPkgGuts ps)))
 	}
 \end{code}
-- 
1.7.10.4