Source file `obj_id.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open! Core
open Memtrace

module T = struct
  type t = Trace.Obj_id.t

  let hash t = Int.hash (t : t :> int)
  let hash_fold_t s t = Int.hash_fold_t s (t : t :> int)
  let compare t1 t2 = Int.compare (t1 : t :> int) (t2 : t :> int)
  let sexp_of_t t = Int.sexp_of_t (t : t :> int)
end

include T
include Hashable.Make_plain (T)