def settle.judged

bend-kit-hairpin@0.13.0.1 · hairpin.bend:280

import Base
import bend-kit-http@0.38.1.1/http.bend as Http
import bend-kit-bytes@0.3.3.0/bytes.bend as Bytes
import bend-kit-retry@0.2.0.0/retry.bend as Retry

280def settle.judged(-R: Type, +p: Retry.Policy, +idem: Bool, +n: Nat, br: Retry.Breaker, b: Retry.Budget, body: Bytes.Bytes,
281    pool: Http.Pool, jar: Maybe<&2, Http.Jar>, j: Result<&1, &1, Http.Err, R> & Verdict) -> IO(Step<R>):
282  (r, +v) = j
283  do IO<Step<R>>:
284    o : Retry.Outcome <- outcome.io(idem, v)
285    settle.outcome(R, p, n, counts(v), o, br, b, body, pool, jar, r)