package oxbow

  1. Overview
  2. Docs
package oxbow
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file exit.ml

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"
    ]
;;