def current4

cswap-bend-cli@0.1.0.0 · store.bend:290

import Base
import cswap-bend-cli@0.1.0.0/json.bend as Json
import cswap-bend-cli@0.1.0.0/act.bend as Act
import cswap-bend-cli@0.1.0.0/store/base.bend as SBase
import cswap-bend-cli@0.1.0.0/store/plan.bend as SPlan

290def current4(+root: String, +ctx: SBase.Ctx, +alias: String, +slot0: Maybe<&2, U32>, +assume_yes: Bool, +ts: String, +seq: Json.Json, +cfg_text: String, +cfg: Json.Json, fetch: String -> IO(SPlan.Prof)) -> Act.of(String):
291  do ActM<String>:
292    +creds : String <- creds_checked(ctx, cfg)
293    notice : String <- notice_for(creds, cfg, fetch)
294    msg : String <- current_branch(root, ident_of(cfg), creds, cfg_text, alias, slot0, assume_yes, ts, seq)
295    return notice ++ msg