me
/
guix
Archived
1
0
Fork 0
Code

import: github: Improve readability. 

* guix/import/github.scm (latest-released-version)[release->version]: Separate
out release->version as a new function.
master
Arun Isaac 2019-05-14 15:44:46 +05:30
parent 0f9bbd32c1
commit c558772b0f
No known key found for this signature in database
GPG Key ID: 2E25EE8B61802BB3
1 changed files with 27 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
guix/import/github.scm
View File

@ -174,17 +174,7 @@ 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)))
(if (eq? json #f)
(if (%github-token)
(error "Error downloading release information through the GitHub
API when using a GitHub token")
(error "Error downloading release information through the GitHub
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
(lambda (release)
(define (release->version release)
(let ((tag (or (hash-ref release "tag_name") ;a "release"
(hash-ref release "name"))) ;a tag
(name-length (string-length package-name)))
@ -206,6 +196,17 @@ https://github.com/settings/tokens"))
(string-ref tag 0)))
tag)
(else #f))))
(let* ((json (fetch-releases-or-tags url)))
(if (eq? json #f)
(if (%github-token)
(error "Error downloading release information through the GitHub
API when using a GitHub token")
(error "Error downloading release information through the GitHub
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))))))