`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`