Source file `swallow_role.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
type t =
  | Auto [@name "auto"]
  | Terminal [@name "terminal"]
  | Disabled [@name "disabled"]
[@@deriving yojson]

let all = [ Auto; Terminal; Disabled ]

let to_string = function
  | Auto -> "auto"
  | Terminal -> "terminal"
  | Disabled -> "disabled"
;;