package ocsigen-start

  1. Overview
  2. Docs
exception No_such_group
val id_of_json : Deriving_Json_lexer.lexbuf -> id
val id_to_json : Buffer.t -> id -> unit
val id_json : id Deriving_Json.t
type t = Os_types.Group.t = {
  1. id : id;
  2. name : string;
  3. desc : string option;
}
val of_json : Deriving_Json_lexer.lexbuf -> t
val to_json : Buffer.t -> t -> unit
val json : t Deriving_Json.t
val id_of_group : Os_types.Group.t -> Os_types.Group.id
val name_of_group : Os_types.Group.t -> string
val desc_of_group : Os_types.Group.t -> string option
val create : ?description:string -> string -> Os_types.Group.t Lwt.t
val group_of_name : string -> Os_types.Group.t Lwt.t
val add_user_in_group : group:Os_types.Group.t -> userid:Os_types.User.id -> unit Lwt.t
val remove_user_in_group : group:Os_types.Group.t -> userid:Os_types.User.id -> unit Lwt.t
val in_group : ?dbh:Os_db.PGOCaml.pa_pg_data Os_db.PGOCaml.t -> group:Os_types.Group.t -> userid:Os_types.User.id -> unit -> bool Lwt.t
val all : unit -> Os_types.Group.t list Lwt.t