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

import: json: Explicitly ask for JSON data.

Browse source 
* guix/import/json.scm (json-fetch): Add #:headers to http-fetch call.
This commit is contained in:
Federico Beffa 2017-02-05 14:42:10 +01:00
parent 4554813936
commit 81e0bc1834
No known key found for this signature in database
GPG key ID: 58936E0E2F1B5A4C
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/import/json.scm
View file

@ -29,7 +29,8 @@ (define (json-fetch url)
(guard (c ((and (http-get-error? c) (guard (c ((and (http-get-error? c)
(= 404 (http-get-error-code c))) (= 404 (http-get-error-code c)))
#f)) ;"expected" if package is unknown #f)) ;"expected" if package is unknown
(let* ((port (http-fetch url)) (let* ((port (http-fetch url #:headers '((user-agent . "GNU Guile")
(Accept . "application/json"))))
(result (hash-table->alist (json->scm port)))) (result (hash-table->alist (json->scm port))))
(close-port port) (close-port port)
result))) result)))