1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
module Toggle = struct
type t =
| Occupied [@name "occupied"]
| All [@name "all"]
[@@deriving yojson]
let all = [ Occupied; All ]
let to_string = function
| Occupied -> "occupied"
| All -> "all"
;;
end
type t =
| Off [@name "off"]
| Occupied [@name "occupied"]
| All [@name "all"]
[@@deriving yojson]
let all = [ Off; Occupied; All ]
let to_string = function
| Off -> "off"
| Occupied -> "occupied"
| All -> "all"
;;
let of_toggle toggle =
match toggle with
| Toggle.Occupied -> Occupied
| Toggle.All -> All
;;