[project @ 2001-07-24 04:47:06 by ken]

[ghc-hetmet.git] / ghc / compiler / main / Packages.lhs

diff --git a/ghc/compiler/main/Packages.lhs b/ghc/compiler/main/Packages.lhs
index 1569197..94eeb96 100644 (file)
--- a/ghc/compiler/main/Packages.lhs
+++ b/ghc/compiler/main/Packages.lhs
@@ -49,7 +49,7 @@ mungePackagePaths top_dir ps = map munge_pkg ps
 
   munge_path p 
          | Just p' <- my_prefix_match "$libdir" p = top_dir ++ p'
-         | otherwise                              = trace ("not: " ++ p) p
+         | otherwise                              = p
 \end{code}
 
 
@@ -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}