From f424e020a4cf7d7023c93598564b03d7c0847a7a Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 27 Apr 2005 14:09:43 +0000
Subject: [PATCH] [project @ 2005-04-27 14:09:43 by simonmar]
 fprintf(stderr,..) --> debugBelch(...)

---
 ghc/utils/genapply/GenApply.hs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/utils/genapply/GenApply.hs b/ghc/utils/genapply/GenApply.hs
index 9fd2a55..956ef42 100644
--- a/ghc/utils/genapply/GenApply.hs
+++ b/ghc/utils/genapply/GenApply.hs
@@ -304,7 +304,7 @@ genApply regstatus args =
 --        print "  };"
     
        text "",
-       text "IF_DEBUG(apply,foreign \"C\" fprintf(stderr, \"" <> fun_ret_label <> 
+       text "IF_DEBUG(apply,foreign \"C\" debugBelch(\"" <> fun_ret_label <> 
 	  text "... \"); foreign \"C\" printClosure(R1 \"ptr\"));",
 
        text "IF_DEBUG(sanity,foreign \"C\" checkStackFrame(Sp+WDS(" <> int (1 + all_args_size)
-- 
1.7.10.4