Source file `pid.ml`

1
2
3
4
5
6
7
8
9
10
11
type t = int

let to_dyn (t : t) : Dyn.t = Variant ("pid", [ Int t ])
let hash = Int.hash
let equal = Int.equal
let to_int t = t

let of_int t =
  assert (t >= 0);
  t
;;