val let> : 'a Lwt.t -> ('a -> 'b Lwt.t) -> 'b Lwt.t
val let|> : 'a Lwt.t -> ('a -> 'b) -> 'b Lwt.t
val let>? :
('a, 'b) Stdlib.result Lwt.t ->
('c -> ('d, 'e) Stdlib.result Lwt.t) ->
('d, 'e) Stdlib.result Lwt.t
val let|>? :
('a, 'b) Stdlib.result Lwt.t ->
('a -> 'c) ->
('c, 'b) Stdlib.result Lwt.t
val let$ :
('a, 'b) Stdlib.result ->
('a -> ('c, 'b) Stdlib.result) ->
('c, 'b) Stdlib.result
val let|$ : ('a, 'b) Stdlib.result -> ('a -> 'c) -> ('c, 'b) Stdlib.result
val iter :
('a -> (unit, 'b) Stdlib.result Lwt.t) ->
'c list ->
(unit, 'd) Stdlib.result Lwt.t
val fold :
('a -> 'b -> ('c, 'd) Stdlib.result Lwt.t) ->
'e ->
'f list ->
('g, 'h) Stdlib.result Lwt.t
val map :
('a -> ('b, 'c) Stdlib.result Lwt.t) ->
'd list ->
('e list, 'f) Stdlib.result Lwt.t
val cb : 'a Lwt.t -> ('b -> unit) option -> unit
val cbr :
?error:('a -> unit) ->
('b, 'c) Stdlib.result Lwt.t ->
('d -> unit) option ->
unit
type slot_location = Stdlib.Printexc.location = {
filename : string;
line_number : int;
start_char : int;
end_char : int;
}
type info_exn = {
exn_id : int;
exn_name : string;
exn_content : string;
exn_location : slot_location option;
}
type nonrec error = [
|
`forge_error of string
|
`unexpected_operation_hash
|
`no_metadata
|
`http_error of int * string option
|
`node_error of Proto.node_error list
|
`unexpected_operation_bytes of Proto.hex * Proto.hex
|
`prepare_operation_error of string
|
`unknown_language
|
`not_a_bool of char * int
|
`int_too_long
|
`unexpected_tag of string * int
|
`no_case_matched of int option
|
`recursive_error
|
`wrong_michelson_type
|
`unknown_primitive of string option
|
`unknown_micheline_tag
|
`sign_exn of exn
|
`empty_bytes
|
`unknown_curve
|
`string_too_short
|
`unknown_prefix
|
`invalid_b58 of exn
|
`verify_exn of exn
|
`empty_operation_list
|
`unexpected_michelson
|
`unmacro_error
|
`generic of string * string
|
`destruct_exn of exn
|
`end_of_bytes of int
|
`operation_not_handled
]
val string_of_error : error -> string
val print_error : error -> unit