Source file `client_identity.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
open! Core
open! Async

type t =
  { client_principal : Principal.Name.t
  ; cross_realm_client_principal : Cross_realm_principal_name.t
  ; request_forwarded_creds : unit -> Cred_cache.t Deferred.Or_error.t
  }
[@@deriving fields]

let sexp_of_t
      { client_principal; cross_realm_client_principal; request_forwarded_creds = _ }
  =
  [%message
    (client_principal : Principal.Name.t)
      (cross_realm_client_principal : Cross_realm_principal_name.t)]
;;