Relock.keep.effect: def of ezx@1.11.0.0
Import: import ezx@1.11.0.0/src/ws/relock.bend as Relock
Lines 136-148 of ezx@1.11.0.0/src/ws/relock.bend: https://jend.leeeet.dev/read.txt?path=ezx@1.11.0.0/src/ws/relock.bend&start_line=136&end_line=148

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

# an effect of the command at the root, its ledger keeping its table
def keep.effect(+old: String, effect: LP.Effect) -> LP.Effect:
  match effect:
    case LP.Write{+path, text}:
      keep.write(String.eq(path, R.toml()), old, path, text)
    case LP.Lay{place, hash, files}:
      LP.Lay{place, hash, files}
    case LP.Drop{hash}:
      LP.Drop{hash}
    case LP.Say{text}:
      LP.Say{text}
    case LP.Name{nv, hash}:
      LP.Name{nv, hash}

Uses (5):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String.eq
  https://jend.leeeet.dev/definition.txt?path=ezx@1.11.0.0/src/lock/plan.bend&name=Effect
  https://jend.leeeet.dev/definition.txt?path=ezx@1.11.0.0/src/relock/relock.bend&name=toml
  https://jend.leeeet.dev/definition.txt?path=ezx@1.11.0.0/src/ws/relock.bend&name=keep.write