Use physical equality for root checking

Suggested-by: ArthurW <[email protected]>
ocaml · Dec 20, 2024 · 7e10b7e · 7e10b7e
1 parent 3389ccb
commit 7e10b7e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/index-format/union_find.ml b/src/index-format/union_find.ml
@@ -10,7 +10,7 @@ let rec find x =
   | Root _ -> x
   | Link ({ parent; _ } as link) ->
     let root = find parent in
-    if root <> parent then link.parent <- root;
+    if root != parent then link.parent <- root;
     root
 
 let union ~f x y =