From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 21 Nov 2006 09:37:48 +0000 (+0000)
Subject: put the unsafeCoerce trace inside DEBUG, to avoid test failures
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c0ae9e5a2340db78296db749a22ab6b600e31bd4;p=ghc-hetmet.git

put the unsafeCoerce trace inside DEBUG, to avoid test failures
---

diff --git a/compiler/deSugar/DsForeign.lhs b/compiler/deSugar/DsForeign.lhs
index ba19124..6c58176 100644
--- a/compiler/deSugar/DsForeign.lhs
+++ b/compiler/deSugar/DsForeign.lhs
@@ -388,8 +388,10 @@ dsFExportDynamic id cconv
 	-- PlayRisky: the adjustor doesn't allocate in the Haskell heap or do a callback
      let ccall_adj_ty = exprType ccall_adj
          ccall_io_adj = mkLams [stbl_value]		     $
-			(pprTrace "DsForeign: why is there an unsafeCoerce here?" (text "") $
-			(Cast ccall_adj (mkUnsafeCoercion ccall_adj_ty io_res_ty )))
+#ifdef DEBUG
+			pprTrace "DsForeign: why is there an unsafeCoerce here?" (text "") $
+#endif
+			(Cast ccall_adj (mkUnsafeCoercion ccall_adj_ty io_res_ty ))
 
          io_app = mkLams tvs	 $
 		  mkLams [cback] $