uuid_unix.ml
core
core.bigbuffer_blocking
core.daemon
core.lock_file_blocking
core.nano_mutex
core.process_env
core.squeue
core.syslog
core.top
core.uuid
1 2 3 4 5 open! Core_kernel let gethostname = Memo.unit Unix.gethostname let create () = Uuid.Private.create ~hostname:(gethostname ()) ~pid:(Unix.getpid ())
1 2 3 4 5
open! Core_kernel let gethostname = Memo.unit Unix.gethostname let create () = Uuid.Private.create ~hostname:(gethostname ()) ~pid:(Unix.getpid ())