From: krasimir <unknown>
Date: Fri, 8 Apr 2005 10:51:37 +0000 (+0000)
Subject: [project @ 2005-04-08 10:51:37 by krasimir]
X-Git-Tag: Initial_conversion_from_CVS_complete~774
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=09ea5a5eeb6b5b5519d6c6e9f7ed11ae5aa125cd;hp=eb561a9cd9bf5c4930f3e3899c9dfc1fd23e5bf6;p=ghc-hetmet.git

[project @ 2005-04-08 10:51:37 by krasimir]
Replace hPutStrLn stderr with debugTraceMsg
---

diff --git a/ghc/compiler/ghci/Linker.lhs b/ghc/compiler/ghci/Linker.lhs
index 4ebbc8b..0a18638 100644
--- a/ghc/compiler/ghci/Linker.lhs
+++ b/ghc/compiler/ghci/Linker.lhs
@@ -43,6 +43,7 @@ import Outputable
 import Panic            ( GhcException(..) )
 import Util             ( zipLazy, global )
 import StaticFlags	( v_Ld_inputs )
+import ErrUtils         ( debugTraceMsg )
 
 -- Standard libraries
 import Control.Monad	( when, filterM, foldM )
@@ -620,11 +621,9 @@ unload dflags linkables
 	new_pls <- unload_wkr dflags linkables pls
 	writeIORef v_PersistentLinkerState new_pls
 
-       	let verb = verbosity dflags
-       	when (verb >= 3) $ do
-	    hPutStrLn stderr (showSDoc
+	debugTraceMsg dflags 3 (showSDoc
 		(text "unload: retaining objs" <+> ppr (objs_loaded new_pls)))
-	    hPutStrLn stderr (showSDoc
+	debugTraceMsg dflags 3 (showSDoc
 		(text "unload: retaining bcos" <+> ppr (bcos_loaded new_pls)))
 
        	return ()