package ojs_list

  1. Overview
  2. Docs
include Ojs_base.Types.App_msg
type app_server_msg = ..
module M_app_server_msg_to_yojson : sig ... end
val app_server_msg_to_yojson : app_server_msg -> Yojson.Safe.t
module M_app_server_msg_of_yojson : sig ... end
type app_client_msg = ..
module M_app_client_msg_to_yojson : sig ... end
val app_client_msg_to_yojson : app_client_msg -> Yojson.Safe.t
module M_app_client_msg_of_yojson : sig ... end
include module type of Ojs_list.Types.Base
type 'a server_msg = ..
module M_server_msg_to_yojson : sig ... end
module M_server_msg_of_yojson : sig ... end
val server_msg_to_yojson : ('a -> Yojson.Safe.t) -> 'a server_msg -> Yojson.Safe.t
type server_msg +=
  1. | SOk
  2. | SError of string
  3. | SAdd of 'a0
  4. | SDelete of 'a1
  5. | SList of 'a2 list
type 'a client_msg = ..
module M_client_msg_to_yojson : sig ... end
module M_client_msg_of_yojson : sig ... end
val client_msg_to_yojson : ('a -> Yojson.Safe.t) -> 'a client_msg -> Yojson.Safe.t
type client_msg +=
  1. | Get
  2. | Add of 'a0
  3. | Delete of 'a1
type elt
val pack_server_msg : string -> elt server_msg -> app_server_msg
val unpack_server_msg : app_server_msg -> (string * elt server_msg) option
val pack_client_msg : string -> elt client_msg -> app_client_msg
val unpack_client_msg : app_client_msg -> (string * elt client_msg) option