package sihl

  1. Overview
  2. Docs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file utils_random_service.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
module Sig = Utils_random_service_sig

module Make () : 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.make "random" ~start ~stop
end
OCaml

Innovation. Community. Security.