apFirst<ENV, B> function

ReaderTask<ENV, A> Function<A>(ReaderTask<ENV, A> ) apFirst<ENV, B>(
  1. ReaderTask<ENV, B> rt1
)

Implementation

ReaderTask<ENV, A> Function<A>(ReaderTask<ENV, A>) apFirst<ENV, B>(
  ReaderTask<ENV, B> rt1,
) =>
    <A>(rt2) => pipe2(
          rt2,
          flatMap<ENV, A, A>(
            (a) => pipe2(
              rt1,
              map<B, A>((_) => a),
            ),
          ),
        );