1signature buildcline =
2sig
3
4 type t = buildcline_dtype.t
5 val initial : t
6
7 type 'a cline_result = {
8 update : {warn: string -> unit, die : string -> unit, arg: 'a} -> 'a
9 }
10 val cline_opt_descrs : t cline_result GetOpt.opt_descr list
11
12end
13