def direct4

cswap-bend-cli@0.1.0.0 · switch.bend:27

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/swbase.bend as B
import cswap-bend-cli@0.1.0.0/swlive.bend as L
import cswap-bend-cli@0.1.0.0/swrun.bend as R
import cswap-bend-cli@0.1.0.0/store/base.bend as SBase

27def direct4(+already: Bool, +ctx: SBase.Ctx, +n: String, +force: Bool, +opts: L.Opts, +email: String) -> Act.of(Json.Json):
28  match already:
29    case True{}:
30      Act.pure(Json.Json, B.noop("direct", "already-active", "Already on Account-" ++ n ++ " (" ++ email ++ ")", B.ref(Some{n}, email), []))
31    case False{}:
32      do ActM<Json.Json>:
33        op : Json.Json <- R.do_switch(ctx, n, force, opts)
34        return B.forced_result(force, B.result_of_op(op, "direct", []))