kio-runtime.kt

object Runtime {
    fun <A> unsafeRunSync(kio: KIO<A>): A = eval(kio)

    fun <A> eval(kio: KIO<A>): A {
        return when (kio) {
            is Effect<A> -> kio.f()
            is FlatMap<*, A> -> {
                val res: Any? = eval(kio.input)
                val f = kio.f as (Any?) -> KIO<A>
                eval(f(res))
            }
        }
    }
}