Server.MakeSourcemodule P : Ojs_filetree.Types.Pmodule P :
Ojs_filetree.Types.P
with type server_msg = P.server_msg
with type client_msg = P.client_msg
with type app_server_msg = P.app_server_msg
with type app_client_msg = P.app_client_msgclass filetree : (P.server_msg ->
(P.client_msg -> unit Lwt.t) ->
unit Lwt.t) -> (P.server_msg ->
unit Lwt.t) -> id:string -> Ojs_base.Path.t -> object ... endclass filetrees : (P.app_server_msg ->
(P.app_client_msg -> unit Lwt.t) ->
unit Lwt.t) -> (P.app_server_msg ->
unit Lwt.t) -> ((P.server_msg -> (P.client_msg -> unit Lwt.t) -> unit Lwt.t) ->
(P.server_msg -> unit Lwt.t) ->
id:string ->
Ojs_base.Path.t ->
filetree) -> object ... end