~ruther/guix-local: import: crate: Fix find-package-version.

17477101dd138aa2b7d01f796b48d6452ab9a27c — Herman Rimm 1 year, 2 months ago 1b1b304

import: crate: Fix find-package-version.

Fixes bug from 5ce1512b0f68cf39cb399623a14302f309c06129, where the
earliest existing package (if any) was returned instead.  See also:

https://issues.guix.gnu.org/68346#3-lineno97

* guix/import/crate.scm (crate->guix-package)[find-package-version]:
Invert boolean expression.

Change-Id: I1d05f55a027241e7c5f62cc98a50a09b5639bdcf
Signed-off-by: Efraim Flashner <efraim@flashner.co.il>

patch browse .tar.gz

1 files changed, 3 insertions(+), 3 deletions(-)

M guix/import/crate.scm

M guix/import/crate.scm => guix/import/crate.scm +3 -3

@@ 335,9 335,9 @@ look up the development dependencs for the given crate."
                           (find-packages-by-name
                            (crate-name->package-name name))))
              (match-lambda* (((semver1 yanked1) (semver2 yanked2))
-                             (or (and yanked1 (not yanked2))
-                                 (and (eq? yanked1 yanked2)
-                                      (semver<? semver1 semver2))))))))
+                             (and (or (not yanked1) yanked2)
+                                  (or (not (eq? yanked1 yanked2))
+                                      (semver>? semver1 semver2))))))))
       (and (not (eq? #f version))
            (match-let (((semver yanked) version))
              (list (semver->string semver) yanked)))))