Function parserSucceed

packages/printer/src/internal/docTree.ts:378–378

(value: A)

}

const parserSucceed = <S, A>(value: A): DocTreeParser<S, A> => (stream) => Option.some([value, stream] as const)

const parserMap = <S, A, B>(self: DocTreeParser<S, A>, f: (a: A) => B): DocTreeParser<S, B> => (stream) =>
  Option.map(self(stream), ([a, s]) => [f(a), s] as const)