perform ::
     BackoffPolicy
  -> RateManager
  -> IO (Result a ())
  -> IO a
perform policy r job = performWith policy r (const (Nothing, job)) job
perform ::
     BackoffPolicy
  -> RateManager
  -> IO (Result a ())
  -> IO a
perform policy r job = performWith policy r (const (Nothing, job)) job
perform policy r job = performWith policy r (const (Nothing, job)) job