package memtrace_viewer

  1. Overview
  2. Docs

Source file protocol.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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]
      ~include_in_error_count:Only_on_exn
  ;;
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]
      ~include_in_error_count:Only_on_exn
  ;;
end