-- >>

-- <<cancel
cancel :: Async a -> IO ()
cancel (Async t _) = throwTo t ThreadKilled
cancel :: Async a -> IO ()
cancel (Async t _) = throwTo t ThreadKilled
cancel (Async t _) = throwTo t ThreadKilled