From: simonpj <unknown>
Date: Tue, 3 Jul 2001 14:53:35 +0000 (+0000)
Subject: [project @ 2001-07-03 14:53:35 by simonpj]
X-Git-Tag: Approximately_9120_patches~1627
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=64b344bbf1378fda2aae7294544470765c5eecaf;p=ghc-hetmet.git

[project @ 2001-07-03 14:53:35 by simonpj]
Dump package info only for -v3
---

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}