Bcfg_query (docs.local.bcfg.query.Bcfg

val (let@) : (unit -> unit) -> (unit -> 'a) -> 'a

val (let*) : ('a, 'b) result -> ('a -> ('c, 'b) result) -> ('c, 'b) result

val run : 
  'a ->
  Bcfg.Out.cfg ->
  [< `Bcfg | `Json ] ->
  string ->
  string option ->
  (int,
    [> `Lexer_error of
         Bcfg.Txtloc.t * [ `Invalid_character of char | `Message of string ]
    | `Msg of string
    | `Parser_error of Bcfg.Txtloc.t * (Bcfg.Error.state * Bcfg.Error.t) option
    | `Rejected ])
    result

val to_msg : 
  [< `Lexer_error of
       Bcfg.Txtloc.t * [ `Invalid_character of char | `Message of string ]
  | `Msg of string
  | `Parser_error of Bcfg.Txtloc.t * (Bcfg.Error.state * Bcfg.Error.t) option
  | `Rejected ] ->
  [> `Msg of string ]

val input : string option Cmdliner.Term.t

val query : string Cmdliner.Term.t

val output_format : [> `Bcfg | `Json ] Cmdliner.Term.t

val term : int Cmdliner.Term.t

val cmd : int Cmdliner.Cmd.t