Fs.then: def of cswap-bend-cli@0.1.0.0
Import: import cswap-bend-cli@0.1.0.0/fs.bend as Fs
Lines 47-53 of cswap-bend-cli@0.1.0.0/fs.bend: https://jend.leeeet.dev/read.txt?path=cswap-bend-cli@0.1.0.0/fs.bend&start_line=47&end_line=53

import Base

# Run `next` only when the previous step worked.
def then(r: Res(Unit), next: IO(Res(Unit))) -> IO(Res(Unit)):
  match r:
    case Fail{e}:
      IO.pure(Res(Unit), Fail{e})
    case Done{u}:
      next

Uses (5):
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=IO.pure
  https://jend.leeeet.dev/definition.txt?path=Base/base.bend&name=Result
  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.bend&name=Res