withInterruptsSentTo :: ThreadId -> IO r -> IO r
withInterruptsSentTo thread get_result = do
bracket (modifyMVar_ interruptTargetThread (return . (thread:)))
withInterruptsSentTo :: ThreadId -> IO r -> IO r
withInterruptsSentTo thread get_result = do
bracket (modifyMVar_ interruptTargetThread (return . (thread:)))