package core_unix

  1. Overview
  2. Docs
package core_unix
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file uuid_unix.ml

1
2
3
4
5
6
7
8
open! Core
module Unix = Core_unix

let gethostname = Memo.unit Unix.gethostname

let create () =
  Uuid.Private.create ~hostname:(gethostname ()) ~pid:(Unix.getpid () |> Pid.to_int)
;;