add IO.lift (#1146)

zio · Sep 12, 2018 · 56cfec6 · 56cfec6
1 parent f7cca46
commit 56cfec6
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/quill-core/src/main/scala/io/getquill/monad/IOMonad.scala b/quill-core/src/main/scala/io/getquill/monad/IOMonad.scala
@@ -38,6 +38,8 @@ trait IOMonad {
 
   object IO {
 
+    def lift[T](result: => Result[T]): IO[T, Effect] = Run(() => result)
+
     def fromTry[T](result: Try[T]): IO[T, Effect] = FromTry(result)
 
     def sequence[A, M[X] <: TraversableOnce[X], E <: Effect](in: M[IO[A, E]])(implicit cbfIOToResult: CanBuildFrom[M[IO[A, E]], Result[A], M[Result[A]]], cbfResultToValue: CanBuildFrom[M[Result[A]], A, M[A]]): IO[M[A], E] =

diff --git a/quill-core/src/test/scala/io/getquill/monad/IOMonadSpec.scala b/quill-core/src/test/scala/io/getquill/monad/IOMonadSpec.scala
@@ -22,6 +22,12 @@ trait IOMonadSpec extends Spec {
 
   "IO companion object" - {
 
+    "lift" in {
+      val t = Success(1)
+      val io = IO.lift(resultValue(1))
+      Try(eval(io)) mustEqual t
+    }
+
     "fromTry" - {
       "success" in {
         val t = Success(1)