Server (p.ojs_base.0.7.0.doc.ojs_base.server.Ojs

Sourcemodule J = Yojson.Safe

Sourcemodule SMap : Map.S with type key = string

Sourceval mk_msg_of_wsdata : (J.t -> ('a, string) result) -> string -> 'a option

val mk_send_msg : 
  ('a -> string) ->
  (Websocket.Frame.t -> unit Lwt.t) ->
  'a ->
  unit Lwt.t

Source

val mk_msg_stream : 
  (string -> 'a option) ->
  Websocket.Frame.t Lwt_stream.t ->
  'a Lwt_stream.t

Source

val handle_messages : 
  (string -> 'a option) ->
  ('b -> string) ->
  (('b -> unit Lwt.t) -> unit Lwt.t) ->
  Websocket.Frame.t Lwt_stream.t ->
  (Websocket.Frame.t -> unit Lwt.t) ->
  unit Lwt.t

Sourcemodule type P = sig ... end

Sourcemodule type S = sig ... end

Source

module Make
  (P : P) : 
  S
    with type Rpc.app_server_msg = P.app_server_msg
     and type Rpc.app_client_msg = P.app_client_msg