package ocsigen-start

  1. Overview
  2. Docs
exception Not_connected
exception Permission_denied
val disconnect_all : ?user_indep:bool -> unit -> unit Lwt.t
val disconnect : unit -> unit Lwt.t
val connected_fun : ?allow:Os_types.Group.t list -> ?deny:Os_types.Group.t list -> ?deny_fun:(Os_types.User.id option -> 'c Lwt.t) -> (Os_types.User.id -> 'a -> 'b -> 'c Lwt.t) -> 'a -> 'b -> 'c Lwt.t
val connected_rpc : ?allow:Os_types.Group.t list -> ?deny:Os_types.Group.t list -> ?deny_fun:(Os_types.User.id option -> 'b Lwt.t) -> (Os_types.User.id -> 'a -> 'b Lwt.t) -> 'a -> 'b Lwt.t
val connected_wrapper : ?allow:Os_types.Group.t list -> ?deny:Os_types.Group.t list -> ?deny_fun:(Os_types.User.id option -> 'b Lwt.t) -> ?force_unconnected:bool -> ('a -> 'b Lwt.t) -> 'a -> 'b Lwt.t
module Opt : sig ... end
val get_current_userid_o : (unit -> Os_types.User.id option) ref