def keep.effect

ezx@1.11.0.0 · src/ws/relock.bend:136

import Base
import ezx@1.11.0.0/src/lock/plan.bend as LP
import ezx@1.11.0.0/src/relock/relock.bend as R

136# an effect of the command at the root, its ledger keeping its table
137def keep.effect(+old: String, effect: LP.Effect) -> LP.Effect:
138  match effect:
139    case LP.Write{+path, text}:
140      keep.write(String.eq(path, R.toml()), old, path, text)
141    case LP.Lay{place, hash, files}:
142      LP.Lay{place, hash, files}
143    case LP.Drop{hash}:
144      LP.Drop{hash}
145    case LP.Say{text}:
146      LP.Say{text}
147    case LP.Name{nv, hash}:
148      LP.Name{nv, hash}