package oxbow

  1. Overview
  2. Docs

Source file request.ml

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]