4 lines
155 B
OCaml
4 lines
155 B
OCaml
let gen_uuid () =
|
|
let random_state = Random.State.make_self_init () in
|
|
Random.set_state random_state;
|
|
Uuidm.to_string (Uuidm.v4_gen random_state ())
|