import: json: Handle the error case.

* guix/import/json.scm (json-fetch-alist): Handle the error case.

diff --git a/guix/import/json.scm b/guix/import/json.scm
index 4f96a51..81ea5e7 100644 (file)
--- a/guix/import/json.scm
+++ b/guix/import/json.scm
@@ -47,4 +47,5 @@ the query."
 (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))