X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDsForeign.lhs;h=6c58176f254c8168d9d0485403113fcbc436a4f9;hb=fe3321f99f4d9c9ff40429a7ac290f8ef7ca3297;hp=ba19124f0c315c368ca94726b973e2a2dba673bb;hpb=49c98d143c382a1341e1046f5ca00819a25691ba;p=ghc-hetmet.git

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] $