diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-08-20 16:31:32 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-08-20 16:32:18 +0200 |
commit | bab4dc58f7278e481c7eb8c6f954d6f1751deb23 (patch) | |
tree | 03cf01ae4cf3312a52ea5e2fc59b6b29e1a46d54 | |
parent | 64bcc76c00dff7712dec3fef3d7c2ee718a4a3ae (diff) | |
download | guix-bab4dc58f7278e481c7eb8c6f954d6f1751deb23.tar.gz |
import: github: Filter out tags that don't look like version numbers.
* guix/import/github.scm (latest-released-version): Filter out RELEASE if it doesn't start with digit.
-rw-r--r-- | guix/import/github.scm | 36 |
1 files changed, 22 insertions, 14 deletions
diff --git a/guix/import/github.scm b/guix/import/github.scm index d11f5fa31f..af9f56e1dc 100644 --- a/guix/import/github.scm +++ b/guix/import/github.scm @@ -172,19 +172,19 @@ 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")) - (let ((proper-releases - (filter - (lambda (x) - ;; example pre-release: - ;; https://github.com/wwood/OrfM/releases/tag/v0.5.1 - ;; or an all-prerelease set - ;; https://github.com/powertab/powertabeditor/releases - (not (hash-ref x "prerelease"))) - json))) - (match proper-releases - (() ;empty release list + (let loop ((releases + (filter + (lambda (x) + ;; example pre-release: + ;; https://github.com/wwood/OrfM/releases/tag/v0.5.1 + ;; or an all-prerelease set + ;; https://github.com/powertab/powertabeditor/releases + (not (hash-ref x "prerelease"))) + json))) + (match releases + (() ;empty release list #f) - ((release . rest) ;one or more releases + ((release . rest) ;one or more releases (let ((tag (or (hash-ref release "tag_name") ;a "release" (hash-ref release "name"))) ;a tag (name-length (string-length package-name))) @@ -196,8 +196,16 @@ https://github.com/settings/tokens")) (substring tag (+ name-length 1)) ;; some tags start with a "v" e.g. "v0.25.0" ;; where some are just the version number - (if (eq? (string-ref tag 0) #\v) - (substring tag 1) tag))))))))) + (if (string-prefix? "v" tag) + (substring tag 1) + + ;; Finally, reject tags that don't start with a digit: + ;; they may not represent a release. + (if (and (not (string-null? tag)) + (char-set-contains? char-set:digit + (string-ref tag 0))) + tag + (loop rest))))))))))) (define (latest-release pkg) "Return an <upstream-source> for the latest release of PKG." |