5 lines
155 B
OCaml
5 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 ())
|