Source file `server_state.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open! Core

module Status = struct
  type t =
    | Idle
    | Busy
    | Down

  let is_idle = function
    | Idle -> true
    | Busy | Down -> false
  ;;
end

type t = { status : Status.t }

let initial = { status = Idle }