krb v0.16.0 · OCaml Package

val names : string list

val request_forwarded_creds : 
  (t, unit -> Cred_cache.t Async.Deferred.Or_error.t) Fieldslib.Field.t

val cross_realm_client_principal : 
  (t, Cross_realm_principal_name.t) Fieldslib.Field.t

val client_principal : (t, Principal.Name.t) Fieldslib.Field.t

val fold : 
  init:'acc__0 ->
  client_principal:
    ('acc__0 -> (t, Principal.Name.t) Fieldslib.Field.t -> 'acc__1) ->
  cross_realm_client_principal:
    ('acc__1 -> (t, Cross_realm_principal_name.t) Fieldslib.Field.t -> 'acc__2) ->
  request_forwarded_creds:
    ('acc__2 ->
      (t, unit -> Cred_cache.t Async.Deferred.Or_error.t) Fieldslib.Field.t ->
      'acc__3) ->
  'acc__3

val make_creator : 
  client_principal:
    ((t, Principal.Name.t) Fieldslib.Field.t ->
      'acc__0 ->
      ('input__ -> Principal.Name.t) * 'acc__1) ->
  cross_realm_client_principal:
    ((t, Cross_realm_principal_name.t) Fieldslib.Field.t ->
      'acc__1 ->
      ('input__ -> Cross_realm_principal_name.t) * 'acc__2) ->
  request_forwarded_creds:
    ((t, unit -> Cred_cache.t Async.Deferred.Or_error.t) Fieldslib.Field.t ->
      'acc__2 ->
      ('input__ -> unit -> Cred_cache.t Async.Deferred.Or_error.t) * 'acc__3) ->
  'acc__0 ->
  ('input__ -> t) * 'acc__3

val create : 
  client_principal:Principal.Name.t ->
  cross_realm_client_principal:Cross_realm_principal_name.t ->
  request_forwarded_creds:(unit -> Cred_cache.t Async.Deferred.Or_error.t) ->
  t

val map : 
  client_principal:
    ((t, Principal.Name.t) Fieldslib.Field.t -> Principal.Name.t) ->
  cross_realm_client_principal:
    ((t, Cross_realm_principal_name.t) Fieldslib.Field.t ->
      Cross_realm_principal_name.t) ->
  request_forwarded_creds:
    ((t, unit -> Cred_cache.t Async.Deferred.Or_error.t) Fieldslib.Field.t ->
      unit ->
      Cred_cache.t Async.Deferred.Or_error.t) ->
  t

val iter : 
  client_principal:((t, Principal.Name.t) Fieldslib.Field.t -> unit) ->
  cross_realm_client_principal:
    ((t, Cross_realm_principal_name.t) Fieldslib.Field.t -> unit) ->
  request_forwarded_creds:
    ((t, unit -> Cred_cache.t Async.Deferred.Or_error.t) Fieldslib.Field.t ->
      unit) ->
  unit

val for_all : 
  client_principal:((t, Principal.Name.t) Fieldslib.Field.t -> bool) ->
  cross_realm_client_principal:
    ((t, Cross_realm_principal_name.t) Fieldslib.Field.t -> bool) ->
  request_forwarded_creds:
    ((t, unit -> Cred_cache.t Async.Deferred.Or_error.t) Fieldslib.Field.t ->
      bool) ->
  bool

val exists : 
  client_principal:((t, Principal.Name.t) Fieldslib.Field.t -> bool) ->
  cross_realm_client_principal:
    ((t, Cross_realm_principal_name.t) Fieldslib.Field.t -> bool) ->
  request_forwarded_creds:
    ((t, unit -> Cred_cache.t Async.Deferred.Or_error.t) Fieldslib.Field.t ->
      bool) ->
  bool

val to_list : 
  client_principal:((t, Principal.Name.t) Fieldslib.Field.t -> 'elem__) ->
  cross_realm_client_principal:
    ((t, Cross_realm_principal_name.t) Fieldslib.Field.t -> 'elem__) ->
  request_forwarded_creds:
    ((t, unit -> Cred_cache.t Async.Deferred.Or_error.t) Fieldslib.Field.t ->
      'elem__) ->
  'elem__ list

val map_poly : 
  ([< `Read | `Set_and_create ], t, 'x0) Fieldslib.Field.user ->
  'x0 list

module Direct : sig ... end

package krb