From ad0082afe041af1a6e8e8f04415fdcae23e8fc0f Mon Sep 17 00:00:00 2001 From: Danny Milosavljevic Date: Tue, 16 Oct 2018 14:35:41 +0200 Subject: import: json: Handle the error case. * guix/import/json.scm (json-fetch-alist): Handle the error case. --- guix/import/json.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/guix/import/json.scm b/guix/import/json.scm index 4f96a513df..81ea5e7b31 100644 --- a/guix/import/json.scm +++ b/guix/import/json.scm @@ -47,4 +47,5 @@ (define* (json-fetch url (define (json-fetch-alist url) "Return an alist representation of the JSON resource URL, or #f if URL returns 403 or 404." - (hash-table->alist (json-fetch url))) + (and=> (json-fetch url) + hash-table->alist)) -- cgit v1.2.3