Speedup OpamVersionCompare.equal

ocaml · Aug 7, 2024 · 7760468 · 7760468
1 parent 0b4f278
commit 7760468
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/opamVersionCompare.ml b/src/core/opamVersionCompare.ml
@@ -138,4 +138,4 @@ let compare (x : string) (y : string) =
     else normalize_comp_result (compare_chunks r1 r2)
 
 let equal (x : string) (y : string) =
-  if String.equal x y then true else (compare x y) = 0
+  compare x y = 0