def writes.members

ezx@1.11.0.0 · src/ws/up.bend:205

import Base
import ezx@1.11.0.0/src/ledger/manifest.bend as M
import ezx@1.11.0.0/src/lock/plan.bend as LP
import ezx@1.11.0.0/src/ws/workspace.bend as W
import ezx@1.11.0.0/src/ws/joint.bend as J

205# every ledger the upgrade changed, the root's first, once the member set is
206# known
207def writes.members(
208  ms: W.Members,
209  +text: String,
210  +spec: W.Spec,
211  +fs: List<&2, J.Found>,
212  +joint: M.Manifest
213) -> List<&2, LP.Effect>:
214  match ms:
215    case W.Refused{_why}:
216      []
217    case W.Members{_root, +dirs}:
218      List.append(&2, LP.Effect, root.write(M.parse(text), spec, W.root.of(text), joint),
219        members.write(fs, dirs, joint))