02/02: import: github: Sort releases before picking the latest one.

[guix-commits]

arunisaac pushed a commit to branch master
in repository guix.

commit 06c7b1f61446d44784cc137ebf7c2588f71c995b
Author: Arun Isaac <address@hidden>
Date:   Tue May 14 15:46:19 2019 +0530

    import: github: Sort releases before picking the latest one.
    
    * guix/import/github.scm (latest-released-version): Sort releases before
    picking the first one as the latest.
---
 guix/import/github.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/guix/import/github.scm b/guix/import/github.scm
index 5f4d9c7..cdac704 100644
--- a/guix/import/github.scm
+++ b/guix/import/github.scm
@@ -206,10 +206,13 @@ API when using a GitHub token")
 API. This may be fixed by using an access token and setting the environment
 variable GUIX_GITHUB_TOKEN, for instance one procured from
 https://github.com/settings/tokens";))
-        (any release->version
-             (match (remove pre-release? json)
-               (() json) ; keep everything
-               (releases releases))))))
+        (match (sort (filter-map release->version
+                                 (match (remove pre-release? json)
+                                   (() json) ; keep everything
+                                   (releases releases)))
+                     version>?)
+          ((latest-release . _) latest-release)
+          (() #f)))))
 
 (define (latest-release pkg)
   "Return an <upstream-source> for the latest release of PKG."