From e2d7d75afab0d703e0ba95ec8d3144aa4aa79366 Mon Sep 17 00:00:00 2001 From: Pau Ruiz Safont Date: Thu, 30 Jan 2025 10:53:29 +0000 Subject: [PATCH] topology: Use specialised compare for CPUSet Signed-off-by: Pau Ruiz Safont --- ocaml/xenopsd/lib/topology.ml | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/ocaml/xenopsd/lib/topology.ml b/ocaml/xenopsd/lib/topology.ml index 7e804233c6..719e4745da 100644 --- 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)