big squish
This commit is contained in:
parent
fae867b35b
commit
55d2abefb4
124 changed files with 6931 additions and 8393 deletions
4
src/util.ml
Normal file
4
src/util.ml
Normal file
|
|
@ -0,0 +1,4 @@
|
|||
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 ())
|
||||
Loading…
Add table
Add a link
Reference in a new issue