Write.put.write: def of cswap-bend-cli@0.1.0.0
Import: import cswap-bend-cli@0.1.0.0/fs/write.bend as Write
Lines 21-26 of cswap-bend-cli@0.1.0.0/fs/write.bend: https://jend.leeeet.dev/read.txt?path=cswap-bend-cli@0.1.0.0/fs/write.bend&start_line=21&end_line=26

import Base
import cswap-bend-cli@0.1.0.0/fs.bend as Fs

def put.write(data: String, r: Fs.Res(File)) -> IO(Fs.Res(Unit)):
  match r:
    case Fail{e}:
      IO.pure(Fs.Res(Unit), Fail{e})
    case Done{f}:
      IO.bind(File & Fs.Res(Unit), Fs.Res(Unit), File.write(f, data), put.close)

Uses (11):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=File
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=File.write
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO.bind
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO.pure
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Pair
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Result
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Unit
  https://jend.leeeet.dev/definition.txt?path=cswap-bend-cli@0.1.0.0/fs/write.bend&name=put.close
  https://jend.leeeet.dev/definition.txt?path=cswap-bend-cli@0.1.0.0/fs.bend&name=Res