10 lines
309 B
OCaml
10 lines
309 B
OCaml
|
let random_state = Random.State.make_self_init ()
|
||
|
|
type t = Uuidm.t
|
||
|
|
let compare = Uuidm.compare
|
||
|
|
let to_string = Uuidm.to_string
|
||
|
|
let of_string = Uuidm.of_string
|
||
|
|
let to_bytes = Uuidm.to_bytes
|
||
|
|
let of_bytes = Uuidm.of_bytes
|
||
|
|
let generate ?(random_state=random_state) = Uuidm.v4_gen random_state
|
||
|
|
let nil = Uuidm.nil
|