Allow Await(js.Promise) in a Future domain

Author: Atry

keywords-Await/.js/src/main/scala/com/thoughtworks/dsl/keywords/AwaitJS.scala

@@ -5,13 +5,20 @@ import scalajs.js
 import scala.util.Success
 import scala.util.Failure
 import scala.util.control.NonFatal
+import scala.concurrent.Future
+import scala.concurrent.ExecutionContext
 
 private trait AwaitJS { this: Await.type =>
   given [PromiseResult]
       : Dsl.IsKeyword[Await[js.Promise[PromiseResult]], PromiseResult] with {}
 
-  given [Value, That]: Dsl[Await[js.Promise[Value]], js.Promise[That], Value] =
-    Await.apply.liftCo[[X] =>> Dsl[X, js.Promise[That], Value]](_ `then` _)
+  given [JsPromiseResult, That]: Dsl[Await[js.Promise[JsPromiseResult]], js.Promise[That], JsPromiseResult] =
+    Await.apply.liftCo[[X] =>> Dsl[X, js.Promise[That], JsPromiseResult]](_ `then` _)
+
+  given [JsPromiseResult, That](using ExecutionContext): Dsl[Await[js.Promise[JsPromiseResult]], Future[That], JsPromiseResult] =
+    Await.apply.liftCo[[X] =>> Dsl[X, Future[That], JsPromiseResult]] { (promise, handler) =>
+      promise.toFuture.flatMap(handler)
+    }
 
   extension [FA, A](inline fa: FA)(using
       inline notKeyword: util.NotGiven[

keywords-Await/src/main/scala/com/thoughtworks/dsl/keywords/Await.scala

@@ -118,9 +118,9 @@ object Await extends AwaitJS {
     Dsl.Keyword.Opaque.Of.apply
   given [FutureResult]: IsKeyword[Await[Future[FutureResult]], FutureResult] with {}
 
-  given [Value, That](using
+  given [FutureResult, That](using
       ExecutionContext
-  ): Dsl[Await[Future[Value]], Future[That], Value] =
+  ): Dsl[Await[Future[FutureResult]], Future[That], FutureResult] =
     _ flatMap _
 
   // // TODO: