Source file `realm.ml`

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

type t = string [@@deriving bin_io, compare, hash, sexp]

let test_realm = "TEST.REALM.COM"

(* In [Krb.Mode.Test_with_principal], we may not have a kerberos
   environment available and can't query for the actual default
   realm. *)
let default () =
  if am_running_test && not Config.am_sandboxed
  then Deferred.Or_error.return test_realm
  else Internal.Principal.default_realm ()
;;