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