def sys.read.next

ezsys@0.1.0.0 · src/sys.bend:44

import Base
import ezsys@0.1.0.0/src/step.bend as Step

44# act on one read's step: read on, or close and answer
45def sys.read.next(
46  file: File,
47  step: Step.Read,
48  rest: File -> String -> IO(Result<&1, &1, U32 & String, String>)
49) -> IO(Result<&1, &1, U32 & String, String>):
50  match step:
51    case Step.ReadMore{text}:
52      rest(file)(text)
53    case Step.ReadStop{answer}:
54      sys.read.end(file, answer)