def rels

cswap-bend-cli@0.1.0.0 · daemon/quarantine.bend:95

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

95def rels(+root: String, +seq: Json.Json, +st: Json.Json, +slots: List<&2, String>) -> Act.of(List<&2, Rel>):
96  match slots:
97    case Nil{}:
98      Act.pure(List<&2, Rel>, [])
99    case Con{s, t}:
100      do ActM<List<&2, Rel>>:
101        m : Maybe<&2, Rel> <- check_slot(root, seq, st, s)
102        rest : List<&2, Rel> <- rels(root, seq, st, t)
103        return keep(m, rest)