Counter fromListWith reversing constraints order

haskell · Feb 28, 2024 · d079583 · d079583
1 parent 9e5e815
commit d079583
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/cabal-install-solver/src/Distribution/Solver/Modular.hs b/cabal-install-solver/src/Distribution/Solver/Modular.hs
@@ -66,7 +66,9 @@ modularResolver sc (Platform arch os) cinfo iidx sidx pkgConfigDB pprefs pcs pns
       -- Indices have to be converted into solver-specific uniform index.
       idx    = convPIs os arch cinfo gcs (shadowPkgs sc) (strongFlags sc) (solveExecutables sc) iidx sidx
       -- Constraints have to be converted into a finite map indexed by PN.
-      gcs    = M.fromListWith (++) (map pair pcs)
+      -- Preserve the order of the constraints, countering fromListWith
+      -- reversing the order by using flip (++).
+      gcs    = M.fromListWith (flip (++)) (map pair pcs)
         where
           pair lpc = (pcName $ unlabelPackageConstraint lpc, [lpc])