Add fromFutureCancelable and friends

core/js/src/main/scala/cats/effect/IOCompanionPlatform.scala

@@ -43,9 +43,15 @@ private[effect] abstract class IOCompanionPlatform { this: IO.type =>
   def fromThenable[A](iot: IO[Thenable[A]]): IO[A] =
     asyncForIO.fromThenable(iot)
 
+  def fromThenableCancelable[A](iot: IO[(Thenable[A], IO[Unit])]): IO[A] =
+    asyncForIO.fromThenableCancelable(iot)
+
   def fromPromise[A](iop: IO[Promise[A]]): IO[A] =
     asyncForIO.fromPromise(iop)
 
+  def fromPromiseCancelable[A](iop: IO[(Promise[A], IO[Unit])]): IO[A] =
+    asyncForIO.fromPromiseCancelable(iop)
+
   def realTimeDate: IO[js.Date] = asyncForIO.realTimeDate
 
   @deprecated("Not implemented for Scala.js. On Node.js consider using fs2.io.stdin.", "3.4.0")

core/shared/src/main/scala/cats/effect/IO.scala

@@ -1486,11 +1486,17 @@ object IO extends IOCompanionPlatform with IOLowPriorityImplicits {
    * }}}
    *
    * @see
-   *   [[IO#unsafeToFuture]]
+   *   [[IO#unsafeToFuture]], [[fromFutureCancelable]]
    */
   def fromFuture[A](fut: IO[Future[A]]): IO[A] =
     asyncForIO.fromFuture(fut)
 
+  /**
+   * Like [[fromFuture]], but is cancelable via the provided finalizer.
+   */
+  def fromFutureCancelable[A](fut: IO[(Future[A], IO[Unit])]): IO[A] =
+    asyncForIO.fromFutureCancelable(fut)
+
   /**
    * Run two IO tasks concurrently, and return the first to finish, either in success or error.
    * The loser of the race is canceled.

kernel/js/src/main/scala/cats/effect/kernel/AsyncPlatform.scala

@@ -22,24 +22,36 @@ private[kernel] trait AsyncPlatform[F[_]] { this: Async[F] =>
 
   def fromPromise[A](iop: F[Promise[A]]): F[A] = fromThenable(widen(iop))
 
+  def fromPromiseCancelable[A](iop: F[(Promise[A], F[Unit])]): F[A] =
+    fromThenableCancelable(widen(iop))
+
   def fromThenable[A](iot: F[Thenable[A]]): F[A] =
     flatMap(iot) { t =>
       async_[A] { cb =>
-        val onFulfilled: Function1[A, Unit | Thenable[Unit]] =
-          (v: A) => cb(Right(v)): Unit | Thenable[Unit]
-
-        val onRejected: Function1[Any, Unit | Thenable[Unit]] = { (a: Any) =>
-          val e = a match {
-            case th: Throwable => th
-            case _ => JavaScriptException(a)
-          }
+        t.`then`[Unit](mkOnFulfilled(cb), defined(mkOnRejected(cb)))
+        ()
+      }
+    }
 
-          cb(Left(e)): Unit | Thenable[Unit]
+  def fromThenableCancelable[A](iot: F[(Thenable[A], F[Unit])]): F[A] =
+    flatMap(iot) {
+      case (t, fin) =>
+        async[A] { cb =>
+          as(delay(t.`then`[Unit](mkOnFulfilled(cb), defined(mkOnRejected(cb)))), Some(fin))
         }
+    }
 
-        t.`then`[Unit](onFulfilled, defined(onRejected))
+  @inline private[this] def mkOnFulfilled[A](
+      cb: Either[Throwable, A] => Unit): Function1[A, Unit | Thenable[Unit]] =
+    (v: A) => cb(Right(v)): Unit | Thenable[Unit]
 
-        ()
-      }
+  @inline private[this] def mkOnRejected[A](
+      cb: Either[Throwable, A] => Unit): Function1[Any, Unit | Thenable[Unit]] = { (a: Any) =>
+    val e = a match {
+      case th: Throwable => th
+      case _ => JavaScriptException(a)
     }
+
+    cb(Left(e)): Unit | Thenable[Unit]
+  }
 }

kernel/shared/src/main/scala/cats/effect/kernel/Async.scala

@@ -207,6 +207,9 @@ trait Async[F[_]] extends AsyncPlatform[F] with Sync[F] with Temporal[F] {
 
   /**
    * Lifts a [[scala.concurrent.Future]] into an `F` effect.
+   *
+   * @see
+   *   [[fromFutureCancelable]] for a cancelable version
    */
   def fromFuture[A](fut: F[Future[A]]): F[A] =
     flatMap(fut) { f =>
@@ -215,6 +218,17 @@ trait Async[F[_]] extends AsyncPlatform[F] with Sync[F] with Temporal[F] {
       }
     }
 
+  /**
+   * Like [[fromFuture]], but is cancelable via the provided finalizer.
+   */
+  def fromFutureCancelable[A](futCancel: F[(Future[A], F[Unit])]): F[A] =
+    flatMap(futCancel) {
+      case (fut, fin) =>
+        flatMap(executionContext) { implicit ec =>
+          async[A](cb => as(delay(fut.onComplete(t => cb(t.toEither))), Some(fin)))
+        }
+    }
+
   /**
    * Translates this `F[A]` into a `G` value which, when evaluated, runs the original `F` to its
    * completion, the `limit` number of stages, or until the first stage that cannot be expressed

tests/shared/src/test/scala/cats/effect/IOSpec.scala

@@ -1416,6 +1416,16 @@ class IOSpec extends BaseSpec with Discipline with IOPlatformSpecification {
         }
       }
 
+      "round trip cancelable through s.c.Future" in ticked { implicit ticker =>
+        forAll { (ioa: IO[Int]) =>
+          ioa eqv IO.fromFutureCancelable(
+            IO(ioa.unsafeToFutureCancelable()).map {
+              case (fut, fin) => (fut, IO.fromFuture(IO(fin())))
+            }
+          )
+        }
+      }
+
       "canceled through s.c.Future is errored" in ticked { implicit ticker =>
         val test =
           IO.fromFuture(IO(IO.canceled.as(-1).unsafeToFuture())).handleError(_ => 42)