def dep.verdict

ezx@1.11.0.0 · src/lock/up.bend:674

import Base
import ezx@1.11.0.0/src/ledger/manifest.bend as M
import ezx@1.11.0.0/src/ledger/upgrade.bend as U
import ezx@1.11.0.0/src/share/say.bend as Say

674# the verdict. `seen` is the hash the pinned commit's checkout has, which a
675# drift names; "" when the commit moved and the pin was not checked out.
676def dep.verdict(
677  verdict: U.Verdict,
678  +rs: List<&2, Reply>,
679  +hub: String,
680  +dep: M.Dep,
681  +tip: String,
682  +branch: String,
683  +seen: String
684) -> Fate:
685  match verdict:
686    case U.Keep{}:
687      stay(dep, [M.dep.name(dep) ++ ": unchanged " ++ M.source.rev(M.source.dep(dep))])
688    case U.Drift{}:
689      +src = M.source.dep(dep)
690      Halts{Say.drift(M.dep.name(dep), M.source.tag(src), M.source.rev(src),
691        M.dep.hash(dep), seen)}
692    case U.Off{}:
693      +src = M.source.dep(dep)
694      Halts{off.why(M.dep.name(dep), M.source.tag(src), M.source.rev(src),
695        tip.of(branch, tip))}
696    case U.Advance{+rev, _tag}:
697      dep.advance(checkout(rs, Tree{M.source.url(M.source.dep(dep)), rev, M.dep.entry(dep)}), rs, hub, dep, rev, branch)