Skip to content

Instantly share code, notes, and snippets.

@bos

bos/DebugRTS.hs

Created November 27, 2010 03:39
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bos/717542 to your computer and use it in GitHub Desktop.
Save bos/717542 to your computer and use it in GitHub Desktop.
Download ZIP
A quick hack for debugging the GHC RTS
Raw
DebugRTS.hs
import Foreign.C.String
import Foreign.Ptr
import System.Posix.Internals
debug :: String -> IO ()
debug s = do
withCStringLen (s++"\n") $ \(ptr,len) ->
c_safe_write 2 (castPtr ptr) (fromIntegral len)
return ()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment