Adds Either.fromNullable

arrow-core-data/src/main/kotlin/arrow/core/Either.kt

@@ -852,6 +852,8 @@ sealed class Either<out A, out B> : EitherOf<A, B> {
 
     fun <R> right(right: R): Either<Nothing, R> = Right(right)
 
+    fun <A> fromNullable(a: A?): Either<Unit, A> = a?.right() ?: Unit.left()
+
     tailrec fun <L, A, B> tailRecM(a: A, f: (A) -> Kind<EitherPartialOf<L>, Either<A, B>>): Either<L, B> {
       val ev: Either<L, Either<A, B>> = f(a).fix()
       return when (ev) {

arrow-core-data/src/test/kotlin/arrow/core/EitherTest.kt

@@ -44,6 +44,7 @@ import arrow.core.test.laws.TraverseLaws
 import arrow.typeclasses.Eq
 import io.kotlintest.properties.Gen
 import io.kotlintest.properties.forAll
+import io.kotlintest.shouldBe
 
 class EitherTest : UnitSpec() {
 
@@ -73,6 +74,16 @@ class EitherTest : UnitSpec() {
       FxLaws.laws<EitherPartialOf<String>, Int>(Gen.int().map(::Right), GEN.map { it }, Either.eqK(String.eq()).liftEq(Int.eq()), ::either, ::either)
     )
 
+    "fromNullable should lift value as a Right if it is not null" {
+      forAll { a: Int ->
+        Either.fromNullable(a) == Right(a)
+      }
+    }
+
+    "fromNullable should lift value as a Left(Unit) if it is null" {
+      Either.fromNullable(null) shouldBe Left(Unit)
+    }
+
     "empty should return a Right of the empty of the inner type" {
       forAll { _: String ->
         Right(String.monoid().run { empty() }) == Either.monoid(String.monoid(), String.monoid()).run { empty() }