Source file `pid.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
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