def set.parsed

cswap-bend-cli@0.1.0.0 · setcmd.bend:125

import Base
import cswap-bend-cli@0.1.0.0/setwrite.bend as Setwrite
import cswap-bend-cli@0.1.0.0/fs.bend as Fs
import cswap-bend-cli@0.1.0.0/cmd.bend as Cmd
import cswap-bend-cli@0.1.0.0/settings.bend as Settings

125def set.parsed(+root: String, sp: Settings.Spec, p: Setwrite.Parsed) -> IO(Cmd.Out):
126  match p:
127    case Setwrite.Bad{m}:
128      IO.pure(Cmd.Out, Cmd.fail(m))
129    case Setwrite.Good{v}:
130      IO.bind(Fs.Res(Cmd.Out), Cmd.Out, set.act(root, sp, v), r => IO.pure(Cmd.Out, fin(r)))