Control.Concurrent.Timeout

timeout