1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open! Ppx_yojson_conv_lib.Yojson_conv
module Body = struct
type t =
| Command of Command.t [@name "command"]
| Keymap of Keymap.t [@name "keymap"]
| Query of Query.t [@name "query"]
| Subscribe of Event.Subscribe.t [@name "subscribe"]
[@@deriving yojson]
end
type t =
{ body : Body.t
; seat : string option [@yojson.option]
}
[@@deriving yojson]