Source file `config.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
open! Core

let default =
  { Config_gen.pre_v5_assumed_realm = None
  ; host_keytab_path = None
  ; user_keytab_dir_template = None
  ; default_domain = None
  ; debug_log_config = None
  ; verbose_errors = None
  ; sandboxing_state = None
  }
;;

let help_message ~default ~environment_variable ~field_descriptions =
  String.concat
    [ "The "
    ; environment_variable
    ; " environment variable affects the Krb\n\
       library in various ways.  Its value should be a sexp of the following form,\n\
       where all fields are required:\n\n"
    ; Sexp.to_string_hum (Config_gen.sexp_of_t default)
    ; "\n\nHere is an explanation of each field.\n"
    ; field_descriptions
    ]
;;

include (val Config_gen.make ~default ~help_message)