Module User.GenericRights

module GenericRights : sig..end

Helper functions and definitions to define User_sql.Types.admin_writer_reader objects

type admin_writer_reader_access = {
  field: 
    'a.
      'a User_sql.Types.admin_writer_reader ->
      'a User_sql.Types.parameterized_group;}

val grp_admin : admin_writer_reader_access

val grp_write : admin_writer_reader_access

val grp_read : admin_writer_reader_access

val map_awr : (admin_writer_reader_access -> 'a) -> 'a * 'a * 'a

val map_awr_lwt : 
  (admin_writer_reader_access -> 'a Lwt.t) ->
  ('a * 'a * 'a) Lwt.t

val iter_awr_lwt : 
  (admin_writer_reader_access -> unit Lwt.t) ->
  unit Lwt.t

val create_admin_writer_reader : 
  prefix:string ->
  name:string ->
  descr:string ->
  find_param:User_sql.Types.find_param ->
  'a User_sql.Types.admin_writer_reader

val admin_writer_reader_groups : 
  'a User_sql.Types.admin_writer_reader ->
  ('a Opaque.int32_t -> User_sql.Types.user) *
  ('a Opaque.int32_t -> User_sql.Types.user) *
  ('a Opaque.int32_t -> User_sql.Types.user)