def publish.chmod
import cswap-bend-cli@0.1.0.0/fs/write.bend as Writeimport Base
import cswap-bend-cli@0.1.0.0/fs.bend as Fs
66def publish.chmod(r: Fs.Res(Unit), +tmp: String, +path: String, +data: String, +mode: String) -> IO(Fs.Res(Unit)):
67 match r:
68 case Fail{e}:
69 publish.fail(Fail{e}, tmp)
70 case Done{u}:
71 IO.bind(Fs.Res(Unit), Fs.Res(Unit), chmod(mode, tmp), c => publish.put(c, tmp, path, data))