apFirst<ENV, B> function

ReaderStream<ENV, A> Function<A>(ReaderStream<ENV, A> ) apFirst<ENV, B>(
  1. ReaderStream<ENV, B> rs1
)

Implementation

ReaderStream<ENV, A> Function<A>(ReaderStream<ENV, A>) apFirst<ENV, B>(
  ReaderStream<ENV, B> rs1,
) =>
    <A>(rs2) => pipe2(
          rs2,
          flatMap<ENV, A, A>(
            (a) => pipe2(
              rs1,
              map<B, A>((_) => a),
            ),
          ),
        );