ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-13 14:40:21 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: json: Handle the error case.

Browse source 
* guix/import/json.scm (json-fetch-alist): Handle the error case.
This commit is contained in:
Danny Milosavljevic 2018-10-16 14:35:41 +02:00
parent 02d5ed4a27
commit ad0082afe0
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
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

@ -47,4 +47,5 @@ (define* (json-fetch url
(define (json-fetch-alist url) (define (json-fetch-alist url)
"Return an alist representation of the JSON resource URL, or #f if URL "Return an alist representation of the JSON resource URL, or #f if URL
returns 403 or 404." returns 403 or 404."
(hash-table->alist (json-fetch url))) (and=> (json-fetch url)
hash-table->alist))