From 11b4775c6610bd8f1c00d45e0766423301927b45 Mon Sep 17 00:00:00 2001
From: Tristan Sloughter <t@crashfast.com>
Date: Mon, 7 Jul 2014 20:50:45 -0500
Subject: sort apps by version, so newest is chosen if it passes constraints

---
 src/rlx_depsolver.erl | 23 ++++++++++++++---------
 1 file changed, 14 insertions(+), 9 deletions(-)

(limited to 'src/rlx_depsolver.erl')

diff --git a/src/rlx_depsolver.erl b/src/rlx_depsolver.erl
index e054cc9..f9dc73d 100644
--- a/src/rlx_depsolver.erl
+++ b/src/rlx_depsolver.erl
@@ -214,14 +214,20 @@ add_package_version({?MODULE, Dom0}, RawPkg, RawVsn, RawPkgConstraints) ->
     Info2 =
         case gb_trees:lookup(Pkg, Dom0) of
             {value, Info0} ->
-                case lists:keytake(Vsn, 1, Info0) of
-                    {value, {Vsn, Constraints}, Info1} ->
-                        [{Vsn, join_constraints(Constraints,
-                                                PkgConstraints)}
-                         | Info1];
-                    false ->
-                        [{Vsn,  PkgConstraints}  | Info0]
-                end;
+                %% Sort Vsns from greatest to lowest
+                lists:reverse(
+                  lists:sort(fun(X, Y) ->
+                                     ec_semver:lte(element(1, X), element(1, Y))
+                             end,
+                            case lists:keytake(Vsn, 1, Info0) of
+                                {value, {Vsn, Constraints}, Info1} ->
+                                    [{Vsn, join_constraints(Constraints,
+                                                            PkgConstraints)}
+                                     | Info1];
+                                false ->
+                                    [{Vsn,  PkgConstraints}  | Info0]
+
+                            end));
             none ->
                 [{Vsn, PkgConstraints}]
         end,
@@ -621,7 +627,6 @@ pkgs(DepGraph, Visited, Pkg, Constraints, OtherPkgs, PathInd) ->
                 NewVisited = [{Pkg, Vsn} | Visited],
                 Res = all_pkgs(DepGraph, NewVisited, DepPkgs ++ OtherPkgs, UConstraints, PathInd),
                 Res
-
         end,
     case constrained_package_versions(DepGraph, Pkg, Constraints) of
         [] ->
-- 
cgit v1.2.3