Using appplicative's ap avoiding unnecessary map function

build.gradle

@@ -3,7 +3,7 @@ buildscript {
         mavenCentral()
     }
     dependencies {
-        classpath "org.jetbrains.kotlin:kotlin-gradle-plugin:1.1.51"
+        classpath "org.jetbrains.kotlin:kotlin-gradle-plugin:1.1.60"
     }
 }
 
@@ -15,7 +15,7 @@ repositories {
 }
 
 dependencies {
-	compile "org.jetbrains.kotlin:kotlin-stdlib-jre8:1.1.51"
+	compile "org.jetbrains.kotlin:kotlin-stdlib-jre8:1.1.60"
 	compile 'org.jetbrains.kotlinx:kotlinx-coroutines-core:0.17'
 	compile 'com.beust:klaxon:0.30'
 }

src/main/java/Json.kt

@@ -27,7 +27,7 @@ inline fun <reified A: Any> JsonObject
 }
 
 fun JsonObject.toUser(): Result<User, ParseError> =
-    ::User.curried() map
+    pure(::User.curried()) ap
         getValue("username") ap
         getValue("password") ap
         getValue("premium") ap

src/main/java/Result.kt

@@ -25,9 +25,6 @@ fun <A, E> Result<A, E>.ifSuccess(execute: (A) -> Unit) {
 
 fun <A> pure(a: A): Result<A, Nothing> = Success(a)
 
-infix fun <A, B, E> ((A) -> B).map(
-    result: Result<A, E>): Result<B, E> = result.map(this)
-
 infix fun <A, B, E> Result<(A) -> B, E>.ap(
     result: Result<A, E>): Result<B, E> = result.apply(this)
 

src/main/java/User.kt

@@ -19,7 +19,7 @@ enum class UserError {
 fun createUser(
     name: String, password: String, premium: Boolean,
     newsletter: Boolean): Result<User, UserError> =
-        ::User.curried() map
+        pure(::User.curried()) ap
             Name(name) ap
             Password(password) ap
             pure(premium) ap