Words.file_write_got: def of gralha-byte-words@0.1.0.0
Import: import gralha-byte-words@0.1.0.0/words.bend as Words
Lines 232-244 of gralha-byte-words@0.1.0.0/words.bend: https://jend.leeeet.dev/read.txt?path=gralha-byte-words@0.1.0.0/words.bend&start_line=232&end_line=244

import Base

def file_write_got(what: String, r: File & Array<U32> & Result<&1, &1, U32 & String, Unit>) -> IO(File):
  (file, a, v) = r
  match v:
    case Done{u}:
      do IO<File>:
        Unit <- drop(a)
        return file
    case Fail{e}:
      do IO<File>:
        Unit <- drop(a)
        Unit <- File.close(file)
        Unit <- fail(what, e)
        IO.die(File, 1, "unreachable")

Uses (15):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Array
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=File
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=File.close
  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.die
  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=Sigma
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=String
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=U32
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Unit
  https://jend.leeeet.dev/definition.txt?path=gralha-byte-words@0.1.0.0/words.bend&name=drop
  https://jend.leeeet.dev/definition.txt?path=gralha-byte-words@0.1.0.0/words.bend&name=fail