apFirst<ENV, B> function

ReaderIO<ENV, A> Function<A>(ReaderIO<ENV, A> ) apFirst<ENV, B>(
  1. ReaderIO<ENV, B> rio1
)

Implementation

ReaderIO<ENV, A> Function<A>(ReaderIO<ENV, A>) apFirst<ENV, B>(
  ReaderIO<ENV, B> rio1,
) =>
    <A>(rio2) => pipe2(
          rio2,
          flatMap<ENV, A, A>(
            (a) => pipe2(
              rio1,
              map<B, A>((_) => a),
            ),
          ),
        );