mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 05:48:07 -05:00
import: github: Use HTTP "Authorization" header for access tokens.
Fixes <https://bugs.gnu.org/39511>. The "access_token" query parameter is now deprecated: https://developer.github.com/changes/2019-11-05-deprecated-passwords-and-authorizations-api/#authenticating-using-query-parameters * guix/import/github.scm (fetch-releases-or-tags)[headers]: Add "Authorization" header when (%github-token) is true. [decorate]: Remove, and remove callers.
This commit is contained in:
parent
eb85995738
commit
3d1e42321f
1 changed files with 6 additions and 8 deletions
|
@ -154,18 +154,16 @@ (define headers
|
|||
;; Ask for version 3 of the API as suggested at
|
||||
;; <https://developer.github.com/v3/>.
|
||||
`((Accept . "application/vnd.github.v3+json")
|
||||
(user-agent . "GNU Guile")))
|
||||
(user-agent . "GNU Guile")
|
||||
,@(if (%github-token)
|
||||
`((Authorization . ,(string-append "token " (%github-token))))
|
||||
'())))
|
||||
|
||||
(define (decorate url)
|
||||
(if (%github-token)
|
||||
(string-append url "?access_token=" (%github-token))
|
||||
url))
|
||||
|
||||
(match (json-fetch (decorate release-url) #:headers headers)
|
||||
(match (json-fetch release-url #:headers headers)
|
||||
(#()
|
||||
;; We got the empty list, presumably because the user didn't use GitHub's
|
||||
;; "release" mechanism, but hopefully they did use Git tags.
|
||||
(json-fetch (decorate tag-url) #:headers headers))
|
||||
(json-fetch tag-url #:headers headers))
|
||||
(x x)))
|
||||
|
||||
(define (latest-released-version url package-name)
|
||||
|
|
Loading…
Reference in a new issue