Module Tezos_layer2_shell.Cli_parser

type 'a t = string list -> ('a * string list, string Tezos_base.TzPervasives.trace) Stdlib.result
val constant : string -> unit t
val (let+) : 'a t -> ('a -> 'b) -> 'b t
val (and+) : 'a t -> 'b t -> ('a * 'b) t
val (let*) : 'a t -> ('a -> 'b t) -> 'b t
val return : 'a -> 'a t
val switch : char -> bool t
val long : string -> string option t
val default_long : default:string -> string -> string t
val default_int_positive_long : ?default:int -> string -> int t
val short : char -> string option t
val required_short : char -> string t
val pos_arg : string -> string t
val seal : 'a t -> 'a t
val validation_error : ('a, Stdlib.Format.formatter, unit, ('b, string) Stdlib.result) Stdlib.format4 -> 'a
val validate : ('a -> (unit, string) Stdlib.result) -> 'a t -> 'a t
val union : 'a t Tezos_base.TzPervasives.trace -> 'a t
val select : (string * 'a t) Tezos_base.TzPervasives.trace -> 'a t
val fail : ('a, Stdlib.Format.formatter, unit, 'c t) Stdlib.format4 -> 'a