def darwin_nodes_ok

near-v-framework@0.4.0.0 · domain/architecture/ops.bend:651

import Base
import near-v-framework@0.4.0.0/domain/architecture/system/deployment/type.bend as D
import near-v-framework@0.4.0.0/domain/architecture/type.bend as A

651def darwin_nodes_ok(ns: List<&2, D.Node>, +a: A.Architecture) -> Bool:
652  match ns:
653    case []:
654      True{}
655    case n <> rest:
656      match n:
657        case D.Node{_, _, _, _, _, p, kids, ins}:
658          darwin_ok(p, ins, a) && darwin_nodes_ok(kids, a) && darwin_nodes_ok(rest, a)