Add threadStatus :: ThreadId -> IO ThreadStatus