Exhaust.br.upd: def of cswap-bend-cli@0.1.0.0
Import: import cswap-bend-cli@0.1.0.0/policy/exhaust.bend as Exhaust
Lines 94-107 of cswap-bend-cli@0.1.0.0/policy/exhaust.bend: https://jend.leeeet.dev/read.txt?path=cswap-bend-cli@0.1.0.0/policy/exhaust.bend&start_line=94&end_line=107

import Base

def br.upd(+acc: Br, +r: Maybe<&2, Nat>) -> Br:
  match acc r:
    case NotBlocked{} None{}:
      BlockedNoTs{}
    case BlockedNoTs{} None{}:
      BlockedNoTs{}
    case BlockedAt{x} None{}:
      BlockedAt{x}
    case NotBlocked{} Some{t}:
      BlockedAt{t}
    case BlockedNoTs{} Some{t}:
      BlockedAt{t}
    case BlockedAt{x} Some{t}:
      BlockedAt{Nat.max(x, t)}

Uses (4):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Maybe
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Nat.max
  https://jend.leeeet.dev/definition.txt?path=cswap-bend-cli@0.1.0.0/policy/exhaust.bend&name=Br