Use Kleisli arrows

gcanti · Apr 21, 2022 · 98c6786 · 98c6786
1 parent e818afb
commit 98c6786
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/IOEither.ts b/src/IOEither.ts
@@ -269,7 +269,7 @@ export const orElseFirstW: <E1, E2, B>(
  * @since 2.11.8
  */
 export const orElseFirstIOK: <E, B>(onLeft: (e: E) => IO<B>) => <A>(ma: IOEither<E, A>) => IOEither<E, A> = (onLeft) =>
-  orElseFirst(flow(onLeft, rightIO))
+  orElseFirst(fromIOK(onLeft))
 
 /**
  * @category combinators

diff --git a/src/TaskEither.ts b/src/TaskEither.ts
@@ -362,15 +362,15 @@ export const orElseFirstW: <E1, E2, B>(
  */
 export const orElseFirstIOK: <E, B>(onLeft: (e: E) => IO<B>) => <A>(ma: TaskEither<E, A>) => TaskEither<E, A> = (
   onLeft
-) => orElseFirst(flow(onLeft, rightIO))
+) => orElseFirst(fromIOK(onLeft))
 
 /**
  * @category combinators
  * @since 2.11.8
  */
 export const orElseFirstTaskK: <E, B>(onLeft: (e: E) => Task<B>) => <A>(ma: TaskEither<E, A>) => TaskEither<E, A> = (
   onLeft
-) => orElseFirst(flow(onLeft, rightTask))
+) => orElseFirst(fromTaskK(onLeft))
 
 /**
  * @category combinators