def cdn.fam

cswap-bend-cli@0.1.0.0 · policy/pick.bend:149

import Base
import cswap-bend-cli@0.1.0.0/policy/types.bend as T
import cswap-bend-cli@0.1.0.0/policy/usage.bend as U
import cswap-bend-cli@0.1.0.0/policy/rank.bend as R

149def cdn.fam(+rk: Rk, +f: Fam, +h: Nat, +a: T.Account) -> Maybe<&2, RH>:
150  match rk:
151    case Rk{t, cf, rm, ah0, best, ar, ars, thr, s}:
152      match s:
153        case R.Sel{active, bar, need, us, now, ms}:
154          match f:
155            case FReset{}:
156              cdn.reset(h, R.seven.row(U.usage.of(U.account.slot(a), us), now, ms), rk)
157            case FRec0{}:
158              cdn.rec0(h, R.rec.row(U.usage.of(U.account.slot(a), us), now, ms), rk)
159            case FRec1{}:
160              cdn.rec1(h, R.rec.row(U.usage.of(U.account.slot(a), us), now, ms), rk)
161            case FFall{}:
162              cdn.fall(h, R.rec.row(U.usage.of(U.account.slot(a), us), now, ms), rk)