Source file `utils_random_service.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
module Sig = Utils_random_service_sig

module Default : Sig.SERVICE = struct
  let rec rand result n =
    if n > 0
    then rand Base.(result ^ Char.to_string (Random.ascii ())) (n - 1)
    else result
  ;;

  let base64 ~bytes =
    Base64.encode_string ~alphabet:Base64.uri_safe_alphabet @@ rand "" bytes
  ;;

  let start ctx =
    Random.self_init ();
    Lwt.return ctx
  ;;

  let stop _ = Lwt.return ()
  let lifecycle = Core.Container.Lifecycle.create "random" ~start ~stop

  let configure configuration =
    let configuration = Core.Configuration.make configuration in
    Core.Container.Service.create ~configuration lifecycle
  ;;
end