def hub_states

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

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

110def hub_states(+home: String, +root: String, ps: List<&2, Rl.Package>) -> IO(List<&2, P.Hub>):
111  match ps:
112    case []:
113      IO.pure(List<&2, P.Hub>, [])
114    case p <> rest:
115      do IO<List<&2, P.Hub>>:
116        h : P.Hub <- hub_state(home, root, p)
117        hs : List<&2, P.Hub> <- hub_states(home, root, rest)
118        return h <> hs