topology: Use specialised compare for CPUSet

Signed-off-by: Pau Ruiz Safont <[email protected]>
xapi-project · Jan 30, 2025 · 2735b54 · 2735b54
1 parent 51397f5
commit 2735b54
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/ocaml/xenopsd/lib/topology.ml b/ocaml/xenopsd/lib/topology.ml
@@ -15,11 +15,7 @@
 module D = Debug.Make (struct let name = "topology" end)
 
 module CPUSet = struct
-  include Set.Make (struct
-    type t = int
-
-    let compare (x : int) (y : int) = compare x y
-  end)
+  include Set.Make (Int)
 
   let pp_dump = Fmt.using to_seq Fmt.(Dump.seq int)