X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Debug%2FTrace.hs;h=742044e4d4c3e1eef013234f23d92500c260a852;hb=267f4516994e20eec23203214079102edc3a3262;hp=16a614e6614a3e729c6229ae57929c400c925394;hpb=e8a5a9136fee6d032580b885457581955884a777;p=ghc-base.git diff --git a/Debug/Trace.hs b/Debug/Trace.hs index 16a614e..742044e 100644 --- a/Debug/Trace.hs +++ b/Debug/Trace.hs @@ -13,9 +13,9 @@ ----------------------------------------------------------------------------- module Debug.Trace ( - -- * Tracing - putTraceMsg, -- :: String -> IO () - trace, -- :: String -> a -> a + -- * Tracing + putTraceMsg, -- :: String -> IO () + trace, -- :: String -> a -> a traceShow ) where @@ -41,7 +41,9 @@ putTraceMsg msg = do withCString msg $ \cmsg -> debugBelch cfmt cmsg -foreign import ccall unsafe "RtsMessages.h debugBelch" +-- don't use debugBelch() directly, because we cannot call varargs functions +-- using the FFI. +foreign import ccall unsafe "HsBase.h debugBelch2" debugBelch :: CString -> CString -> IO () #endif