Function parserFlatMap

packages/printer/src/internal/docTree.ts:384–385

(self: DocTreeParser<S, A>, f: (a: A) => DocTreeParser<S, B>)

const parserFlatMap =
  <S, A, B>(self: DocTreeParser<S, A>, f: (a: A) => DocTreeParser<S, B>): DocTreeParser<S, B> => (stream) =>
    Option.flatMap(self(stream), ([a, s1]) => f(a)(s1))

function many<S, A>(parser: DocTreeParser<S, A>): DocTreeParser<S, ReadonlyArray<A>> {
  return (stream) =>