Rename things

Author: mchaver

jscomp/others/belt_Result.ml

@@ -19,9 +19,9 @@ external id : 'a -> 'a = "%identity"
 let const v = fun _ -> v
 
 (** Functor interface *)
-let map f = bimap id f
+let map f = bimap f id
 let (<$>) = map
-let mapLeft f = bimap f id
+let mapError f = bimap id f
 
 (** Predicates *)
 let isOk v = result (const true) (const false) v

jscomp/others/belt_Result.mli

@@ -7,9 +7,9 @@ val error : 'b -> ('a, 'b) t
 
 val result : ('a -> 'c) -> ('b -> 'c) -> ('a, 'b) t -> 'c
 
-val map : ('b -> 'c) -> ('a, 'b) t -> ('a, 'c) t
-val (<$>) : ('b -> 'c) -> ('a, 'b) t -> ('a, 'c) t
-val mapLeft : ('a -> 'c) -> ('a, 'b) t -> ('c, 'b) t
+val map : ('a -> 'c) -> ('a, 'b) t -> ('c, 'b) t
+val (<$>) : ('a -> 'c) -> ('a, 'b) t -> ('c, 'b) t  
+val mapError : ('b -> 'c) -> ('a, 'b) t -> ('a, 'c) t
 
 val bimap : ('a -> 'c) -> ('b -> 'd) -> ('a, 'b) t -> ('c, 'd) t