ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 06:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: github: Use prereleases when package has no releases.

Browse source 
* guix/import/github.scm (latest-released-version): Use preleases when package
has no releases.
This commit is contained in:
Arun Isaac 2019-01-17 01:34:07 +05:30
parent 0233bdde6c
commit 6b7ea49bed
No known key found for this signature in database
GPG key ID: 2E25EE8B61802BB3
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
guix/import/github.scm
View file

@ -171,6 +171,9 @@ (define (latest-released-version url package-name)
"Return a string of the newest released version name given a string URL like "Return a string of the newest released version name given a string URL like
'https://github.com/arq5x/bedtools2/archive/v2.24.0.tar.gz' and the name of 'https://github.com/arq5x/bedtools2/archive/v2.24.0.tar.gz' and the name of
the package e.g. 'bedtools2'. Return #f if there is no releases" the package e.g. 'bedtools2'. Return #f if there is no releases"
(define (pre-release? x)
(hash-ref x "prerelease"))
(let* ((json (fetch-releases-or-tags url))) (let* ((json (fetch-releases-or-tags url)))
(if (eq? json #f) (if (eq? json #f)
(if (%github-token) (if (%github-token)
@ -181,14 +184,9 @@ (define (latest-released-version url package-name)
variable GUIX_GITHUB_TOKEN, for instance one procured from variable GUIX_GITHUB_TOKEN, for instance one procured from
https://github.com/settings/tokens")) https://github.com/settings/tokens"))
(let loop ((releases (let loop ((releases
(filter (match (remove pre-release? json)
(lambda (x) (() json) ; keep everything
;; example pre-release: (releases releases))))
;; 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 (match releases
(() ;empty release list (() ;empty release list
#f) #f)