[project @ 2002-05-01 17:56:52 by sof]

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

diff --git a/ghc/compiler/main/Packages.lhs b/ghc/compiler/main/Packages.lhs
index cad3af3..7c18904 100644 (file)
--- a/ghc/compiler/main/Packages.lhs
+++ b/ghc/compiler/main/Packages.lhs
@@ -17,7 +17,7 @@ import Pretty
 import CmdLineOpts     ( dynFlag, verbosity )
 import DriverUtil      ( my_prefix_match )
 import ErrUtils                ( dumpIfSet )
-import Outputable      ( docToSDoc, trace )
+import Outputable      ( docToSDoc )
 \end{code}
 
 \begin{code}
@@ -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}