Source file `contract_random.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
let name = "random"

module type Sig = sig
  (** [bytes n] generates a string that comprises [n] random bytes. *)
  val bytes : int -> char list

  (** [base64 n] generates a base64 encoded string that comprises [n] random
      bytes. *)
  val base64 : int -> string

  val register : unit -> Core_container.Service.t

  include Core_container.Service.Sig
end