From c0ae9e5a2340db78296db749a22ab6b600e31bd4 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 21 Nov 2006 09:37:48 +0000 Subject: [PATCH] put the unsafeCoerce trace inside DEBUG, to avoid test failures --- compiler/deSugar/DsForeign.lhs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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] $ -- 1.7.10.4