Use Js_result.t

Author: mchaver

jscomp/others/belt_Result.ml

@@ -23,9 +23,7 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
 
-type ('a, 'b) t =
-  | Ok of 'a
-  | Error of 'b
+type ('a,'b) t = ('a, 'b) Js_result.t
 
 let getExn = function
   | Ok x -> x

jscomp/others/belt_Result.mli

@@ -27,9 +27,7 @@
     Utilities for result data type.
 *)
 
-type ('a, 'b) t =
-  | Ok of 'a
-  | Error of 'b
+type ('a,'b) t = ('a, 'b) Js_result.t
 
 val getExn : ('a, 'b) t -> 'a
 val mapWithDefaultU : ('a, 'c) t -> 'b -> ('a -> 'b [@bs]) -> 'b