def tag_states

near-v-framework@0.4.0.0 · domain/architecture/system/effects.bend:232

import Base
import near-v-framework@0.4.0.0/domain/architecture/system/release/type.bend as Rl
import near-v-framework@0.4.0.0/domain/architecture/system/plan/type.bend as P

232def tag_states(+home: String, +root: String, gs: List<&2, Rl.Plugin>) -> IO(List<&2, P.Tag>):
233  match gs:
234    case []:
235      IO.pure(List<&2, P.Tag>, [])
236    case g <> rest:
237      do IO<List<&2, P.Tag>>:
238        t : P.Tag <- tag_state(home, root, g)
239        ts : List<&2, P.Tag> <- tag_states(home, root, rest)
240        return t <> ts