module Debug.Trace (
-- * Tracing
putTraceMsg, -- :: String -> IO ()
- trace -- :: String -> a -> a
+ trace, -- :: String -> a -> a
+ traceShow
) where
import Prelude
withCString msg $ \cmsg ->
debugBelch cfmt cmsg
-foreign import ccall unsafe debugBelch :: CString -> CString -> IO ()
+foreign import ccall unsafe "RtsMessages.h debugBelch"
+ debugBelch :: CString -> CString -> IO ()
#endif
{-# NOINLINE trace #-}