Module `Tezos_protocol_environment_alpha.Result`Source

type (!'a, !'e) t = ('a, 'e) Pervasives.result =

val ok : 'a -> ('a, 'e) Pervasives.result

val ok_s : 'a -> ('a, 'e) Pervasives.result Lwt.t

val error : 'e -> ('a, 'e) Pervasives.result

val error_s : 'e -> ('a, 'e) Pervasives.result Lwt.t

val return : 'a -> ('a, 'e) Pervasives.result

val return_unit : (unit, 'e) Pervasives.result

val return_none : ('a option, 'e) Pervasives.result

val return_some : 'a -> ('a option, 'e) Pervasives.result

val return_nil : ('a list, 'e) Pervasives.result

val return_true : (bool, 'e) Pervasives.result

val return_false : (bool, 'e) Pervasives.result

val value : ('a, 'e) Pervasives.result -> default:'a -> 'a

val value_f : ('a, 'e) Pervasives.result -> default:(unit -> 'a) -> 'a

val bind : 
  ('a, 'e) Pervasives.result ->
  ('a -> ('b, 'e) Pervasives.result) ->
  ('b, 'e) Pervasives.result

val bind_s : 
  ('a, 'e) Pervasives.result ->
  ('a -> ('b, 'e) Pervasives.result Lwt.t) ->
  ('b, 'e) Pervasives.result Lwt.t

val bind_error : 
  ('a, 'e) Pervasives.result ->
  ('e -> ('a, 'f) Pervasives.result) ->
  ('a, 'f) Pervasives.result

val bind_error_s : 
  ('a, 'e) Pervasives.result ->
  ('e -> ('a, 'f) Pervasives.result Lwt.t) ->
  ('a, 'f) Pervasives.result Lwt.t

val join : 
  (('a, 'e) Pervasives.result, 'e) Pervasives.result ->
  ('a, 'e) Pervasives.result

val map : 
  ('a -> 'b) ->
  ('a, 'e) Pervasives.result ->
  ('b, 'e) Pervasives.result

val map_e : 
  ('a -> ('b, 'e) Pervasives.result) ->
  ('a, 'e) Pervasives.result ->
  ('b, 'e) Pervasives.result

val map_s : 
  ('a -> 'b Lwt.t) ->
  ('a, 'e) Pervasives.result ->
  ('b, 'e) Pervasives.result Lwt.t

val map_es : 
  ('a -> ('b, 'e) Pervasives.result Lwt.t) ->
  ('a, 'e) Pervasives.result ->
  ('b, 'e) Pervasives.result Lwt.t

val map_error : 
  ('e -> 'f) ->
  ('a, 'e) Pervasives.result ->
  ('a, 'f) Pervasives.result

val map_error_e : 
  ('e -> ('a, 'f) Pervasives.result) ->
  ('a, 'e) Pervasives.result ->
  ('a, 'f) Pervasives.result

val map_error_s : 
  ('e -> 'f Lwt.t) ->
  ('a, 'e) Pervasives.result ->
  ('a, 'f) Pervasives.result Lwt.t

val map_error_es : 
  ('e -> ('a, 'f) Pervasives.result Lwt.t) ->
  ('a, 'e) Pervasives.result ->
  ('a, 'f) Pervasives.result Lwt.t

val fold : 
  ok:('a -> 'c) ->
  error:('e -> 'c) ->
  ('a, 'e) Pervasives.result ->
  'c

val iter : ('a -> unit) -> ('a, 'e) Pervasives.result -> unit

val iter_s : ('a -> unit Lwt.t) -> ('a, 'e) Pervasives.result -> unit Lwt.t

val iter_error : ('e -> unit) -> ('a, 'e) Pervasives.result -> unit

val iter_error_s : 
  ('e -> unit Lwt.t) ->
  ('a, 'e) Pervasives.result ->
  unit Lwt.t

val is_ok : ('a, 'e) Pervasives.result -> bool

val is_error : ('a, 'e) Pervasives.result -> bool

val equal : 
  ok:('a -> 'a -> bool) ->
  error:('e -> 'e -> bool) ->
  ('a, 'e) Pervasives.result ->
  ('a, 'e) Pervasives.result ->
  bool

val compare : 
  ok:('a -> 'a -> int) ->
  error:('e -> 'e -> int) ->
  ('a, 'e) Pervasives.result ->
  ('a, 'e) Pervasives.result ->
  int

val to_option : ('a, 'e) Pervasives.result -> 'a option

val of_option : error:'e -> 'a option -> ('a, 'e) Pervasives.result

val to_list : ('a, 'e) Pervasives.result -> 'a list

val to_seq : ('a, 'e) Pervasives.result -> 'a Seq.t

val catch : 
  ?catch_only:(exn -> bool) ->
  (unit -> 'a) ->
  ('a, exn) Pervasives.result

val catch_f : 
  ?catch_only:(exn -> bool) ->
  (unit -> 'a) ->
  (exn -> 'error) ->
  ('a, 'error) Pervasives.result

val catch_s : 
  ?catch_only:(exn -> bool) ->
  (unit -> 'a Lwt.t) ->
  ('a, exn) Pervasives.result Lwt.t

Install