def loop.step

ezx@1.11.0.0 · src/remove/run.bend:24

import Base
import ezx@1.11.0.0/src/lock/run.bend as Run
import ezx@1.11.0.0/src/lock/world.bend as W
import ezx@1.11.0.0/src/remove/relock.bend as RR

24# the planner's step: its questions answered and the loop gone round again,
25# or its plan run
26def loop.step(st: RR.Next, +lib: String, world: RR.World, go: RR.World -> IO(Unit)) -> IO(Unit):
27  match st:
28    case RR.AskLock{asks}:
29      do IO<Unit>:
30        rs : List<&2, W.Reply> <- Run.answer.all(lib, asks)
31        go(more(world, rs))
32    case RR.Planned{pl}:
33      Run.exec.plan(lib, pl)