sig
  type code = int
  val ok : Cmdliner.Cmd.Exit.code
  val some_error : Cmdliner.Cmd.Exit.code
  val cli_error : Cmdliner.Cmd.Exit.code
  val internal_error : Cmdliner.Cmd.Exit.code
  type info
  val info :
    ?docs:string ->
    ?doc:string ->
    ?max:Cmdliner.Cmd.Exit.code ->
    Cmdliner.Cmd.Exit.code -> Cmdliner.Cmd.Exit.info
  val info_code : Cmdliner.Cmd.Exit.info -> Cmdliner.Cmd.Exit.code
  val defaults : Cmdliner.Cmd.Exit.info list
end