sig
  type ('a, 'e) t = ('a, 'e) BatPervasives.result = Ok of '| Error of 'e
  val ok : '-> ('a, 'b) BatResult.t
  val error : '-> ('a, 'e) BatResult.t
  val value : ('a, 'e) BatResult.t -> default:'-> 'a
  val default : '-> ('a, 'b) BatResult.t -> 'a
  val get_ok : ('a, 'e) BatResult.t -> 'a
  val get_error : ('a, 'e) BatResult.t -> 'e
  val get : ('a, exn) BatResult.t -> 'a
  val catch : ('-> 'e) -> '-> ('e, exn) BatResult.t
  val catch2 : ('-> '-> 'c) -> '-> '-> ('c, exn) BatResult.t
  val catch3 :
    ('-> '-> '-> 'd) -> '-> '-> '-> ('d, exn) BatResult.t
  val bind :
    ('a, 'e) BatResult.t ->
    ('-> ('b, 'e) BatResult.t) -> ('b, 'e) BatResult.t
  val join : (('a, 'e) BatResult.t, 'e) BatResult.t -> ('a, 'e) BatResult.t
  val map : ('-> 'b) -> ('a, 'e) BatResult.t -> ('b, 'e) BatResult.t
  val map_error : ('-> 'f) -> ('a, 'e) BatResult.t -> ('a, 'f) BatResult.t
  val map_both :
    ('a1 -> 'a2) ->
    ('b1 -> 'b2) -> ('a1, 'b1) BatResult.t -> ('a2, 'b2) BatResult.t
  val map_default : '-> ('-> 'b) -> ('a, 'c) BatResult.t -> 'b
  val fold : ok:('-> 'c) -> error:('-> 'c) -> ('a, 'e) BatResult.t -> 'c
  val iter : ('-> unit) -> ('a, 'e) BatResult.t -> unit
  val iter_error : ('-> unit) -> ('a, 'e) BatResult.t -> unit
  val is_ok : ('a, 'e) BatResult.t -> bool
  val is_error : ('a, 'e) BatResult.t -> bool
  val is_bad : ('a, 'e) BatResult.t -> bool
  val is_exn : exn -> ('a, exn) BatResult.t -> bool
  val equal :
    ok:('-> '-> bool) ->
    error:('-> '-> bool) ->
    ('a, 'e) BatResult.t -> ('a, 'e) BatResult.t -> bool
  val compare :
    ok:('-> '-> int) ->
    error:('-> '-> int) ->
    ('a, 'e) BatResult.t -> ('a, 'e) BatResult.t -> int
  val to_option : ('a, 'b) BatResult.t -> 'a option
  val of_option : 'a option -> ('a, unit) BatResult.t
  val to_list : ('a, 'e) BatResult.t -> 'a list
  val to_seq : ('a, 'e) BatResult.t -> 'BatSeq.t
  module Monad :
    sig
      val bind :
        ('a, 'e) BatResult.t ->
        ('-> ('c, 'e) BatResult.t) -> ('c, 'e) BatResult.t
      val ( >>= ) :
        ('a, 'e) BatResult.t ->
        ('-> ('c, 'e) BatResult.t) -> ('c, 'e) BatResult.t
      val return : '-> ('a, 'b) BatResult.t
    end
  module Infix :
    sig
      val ( >>= ) :
        ('a, 'e) BatResult.t ->
        ('-> ('c, 'e) BatResult.t) -> ('c, 'e) BatResult.t
    end
  val print :
    ('BatInnerIO.output -> '-> unit) ->
    'BatInnerIO.output -> ('a, exn) BatResult.t -> unit
end