Source file `spawn_position.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
type t =
  | Master [@name "master"]
  | Prev [@name "prev"]
  | Next [@name "next"]
  | End [@name "end"]
[@@deriving yojson]

let all = [ Master; Prev; Next; End ]

let to_string = function
  | Master -> "master"
  | Prev -> "prev"
  | Next -> "next"
  | End -> "end"
;;