1
2
3
4
5
6
7
8
9
10
11
12
13
14
let ok = 0
let unavailable = 69
let software = 70
let exits =
let open Cmdliner in
List.fold_left
(fun acc (code, doc) -> Cmd.Exit.info code ~doc :: acc)
[]
[ ok, "on success"
; unavailable, "on unavailable service"
; software, "on internal software error"
]
;;