timeout :: (MonadReader r m, HasEnv s r) => Seconds -> m a -> m a
timeout s = local (configure (serviceTimeout ?~ s))
timeout :: (MonadReader r m, HasEnv s r) => Seconds -> m a -> m a
timeout s = local (configure (serviceTimeout ?~ s))
timeout s = local (configure (serviceTimeout ?~ s))