def token_place2

cswap-bend-cli@0.1.0.0 · store/ops.bend:108

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/plan.bend as SPlan
import cswap-bend-cli@0.1.0.0/store/io.bend as SIo

108def token_place2(+root: String, +token: String, +api_key: Bool, +email: String, +ts: String, +seq: Json.Json, +num: String, +displace: Maybe<&2, String>, +migrate: Maybe<&2, String>) -> Act.of(String):
109  do ActM<String>:
110    s2 : Json.Json <- SIo.drop_pair(root, seq, displace, migrate, ts)
111    token_files(root, token, api_key, email, num)
112    SIo.write_seq(root, token_seq(s2, num, email, ts, api_key))
113    token_logs(root, "Added account " ++ num ++ " from " ++ SPlan.kind_label(api_key) ++ ": " ++ email, api_key, email, num)
114    return moved_line(migrate, "", num) ++ "Added Account " ++ num ++ ": " ++ email ++ " [personal] (from " ++ SPlan.kind_label(api_key) ++ ")"