1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
open! Core
open! Async_rpc_kernel
module Init = struct
let t =
Rpc.Rpc.create
~name:"init"
~version:0
~bin_query:[%bin_type_class: Unit.t]
~bin_response:[%bin_type_class: Data.Serialized.t]
;;
end
module Update = struct
let t =
Rpc.Rpc.create
~name:"update"
~version:0
~bin_query:[%bin_type_class: Action.t]
~bin_response:[%bin_type_class: Data.Serialized.t]
;;
end