def per_service

near-v-framework@0.4.0.0 · domain/architecture/system/deployment/nix_darwin/setting/effects.bend:91

import Base
import near-v-framework@0.4.0.0/domain/architecture/system/effs/io.bend as X
import near-v-framework@0.4.0.0/domain/architecture/system/deployment/nix_darwin/setting/ops.bend as StO

91# ---- network ----
92def per_service(ss: List<&2, String>, +get: String) -> IO(List<&2, String>):
93  match ss:
94    case []:
95      IO.pure(List<&2, String>, [])
96    case s <> rest:
97      do IO<List<&2, String>>:
98        out : String <- X.run("networksetup", [get, s])
99        more : List<&2, String> <- per_service(rest, get)
100        return StO.per_service(out) <> more