uuid_unix.ml
core
core.bigbuffer_blocking
core.bigstring_unix
core.daemon
core.error_checking_mutex
core.iobuf_unix
core.linux_ext
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 5 6 7 8 open! Core_kernel module Unix = Core.Unix let gethostname = Memo.unit Unix.gethostname let create () = Uuid.Private.create ~hostname:(gethostname ()) ~pid:(Unix.getpid () |> Pid.to_int) ;;
1 2 3 4 5 6 7 8
open! Core_kernel module Unix = Core.Unix let gethostname = Memo.unit Unix.gethostname let create () = Uuid.Private.create ~hostname:(gethostname ()) ~pid:(Unix.getpid () |> Pid.to_int) ;;