refactor(pkg): remove polymorphic comparison (#11287)

Signed-off-by: Rudi Grinberg <[email protected]>
ocaml · Jan 14, 2025 · ee89fb8 · ee89fb8
1 parent 3a1ce74
commit ee89fb8
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/0install-solver/sat.ml b/src/0install-solver/sat.ml
@@ -134,7 +134,12 @@ module Make (User : USER) = struct
 
         let compare (s1, v1) (s2, v2) =
           match VarID.compare v1.id v2.id with
-          | Eq -> Poly.compare s1 s2
+          | Eq ->
+            (match s1, s2 with
+             | Pos, Pos -> Eq
+             | Pos, _ -> Gt
+             | _, Pos -> Lt
+             | Neg, Neg -> Eq)
           | x -> x
         ;;
       end)