X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fghci%2FByteCodeFFI.lhs;h=ef3fd3e0d6a2b653fc03d39707224148d60975cf;hp=61e70d64e4b99831e6812504fbb944ec20cb4064;hb=e56b68fa613a30e8c9287732320087be362345e0;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1

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