From 92e1b7accd21ea69c9890b266ec719ab54aef4eb Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 11 Apr 2006 13:15:31 +0000 Subject: [PATCH] remove a trace --- compiler/ghci/ByteCodeFFI.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/ghci/ByteCodeFFI.lhs b/compiler/ghci/ByteCodeFFI.lhs index 61e70d6..ef3fd3e 100644 --- a/compiler/ghci/ByteCodeFFI.lhs +++ b/compiler/ghci/ByteCodeFFI.lhs @@ -24,7 +24,7 @@ import DATA_WORD ( Word8, Word32 ) import Foreign ( Ptr ) import System.IO.Unsafe ( unsafePerformIO ) import IO ( hPutStrLn, stderr ) -import Debug.Trace ( trace ) +-- import Debug.Trace ( trace ) \end{code} %************************************************************************ @@ -74,7 +74,7 @@ mkMarshalCode :: CCallConv mkMarshalCode cconv (r_offW, r_rep) addr_offW arg_offs_n_reps = let bytes = mkMarshalCode_wrk cconv (r_offW, r_rep) addr_offW arg_offs_n_reps - in trace (show bytes) $ Foreign.newArray bytes + in Foreign.newArray bytes -- 1.7.10.4