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