diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-05-15 22:53:20 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-05-31 23:25:24 +0200 |
| commit | e7910f4882d520fcf8920df9ff4ddb00eb9ee41d (patch) | |
| tree | f243078e9063b1ba9865dde0fff903a00980d39a | |
| parent | 4663cfd381e278747b28bbb7aebe45ab76e8c984 (diff) | |
| download | guix-e7910f4882d520fcf8920df9ff4ddb00eb9ee41d.tar.gz | |
import: json: Add #:timeout to 'json-fetch'.
* guix/import/json.scm (json-fetch): Add #:timeout and pass it to 'http-fetch'.
| -rw-r--r-- | guix/import/json.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/import/json.scm b/guix/import/json.scm index ae00ee929e..b87e9918c5 100644 --- a/guix/import/json.scm +++ b/guix/import/json.scm @@ -1,7 +1,7 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2014 David Thompson <davet@gnu.org> ;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.org> -;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2018, 2019, 2023 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This file is part of GNU Guix. @@ -37,6 +37,7 @@ (define* (json-fetch url #:key (http-fetch http-fetch) + (timeout 10) ;; Note: many websites returns 403 if we omit a ;; 'User-Agent' header. (headers `((user-agent . "GNU Guile") @@ -50,7 +51,7 @@ enable caching, supply 'http-fetch/cached'." (or (= 403 error) (= 404 error)))) #f)) - (let* ((port (http-fetch url #:headers headers)) + (let* ((port (http-fetch url #:timeout timeout #:headers headers)) (result (json->scm port))) (close-port port) result))) |