01/01: import: json: Handle the error case.

[Danny Milosavljevic]

dannym pushed a commit to branch master
in repository guix.

commit ad0082afe041af1a6e8e8f04415fdcae23e8fc0f
Author: Danny Milosavljevic <address@hidden>
Date:   Tue Oct 16 14:35:41 2018 +0200

    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 4f96a51..81ea5e7 100644
--- 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))