[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
06/21: import: json: Add #:timeout to 'json-fetch'.
From: |
guix-commits |
Subject: |
06/21: import: json: Add #:timeout to 'json-fetch'. |
Date: |
Wed, 31 May 2023 17:52:49 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit e7910f4882d520fcf8920df9ff4ddb00eb9ee41d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon May 15 22:53:20 2023 +0200
import: json: Add #:timeout to 'json-fetch'.
* guix/import/json.scm (json-fetch): Add #:timeout and pass it to
'http-fetch'.
---
guix/import/json.scm | 5 +++--
1 file 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)))
- branch master updated (60895810ad -> 654fcf9971), guix-commits, 2023/05/31
- 01/21: transformations: Add "--tune" to "--help-transform"., guix-commits, 2023/05/31
- 06/21: import: json: Add #:timeout to 'json-fetch'.,
guix-commits <=
- 08/21: upstream: Replace 'input-changes' field by 'inputs'., guix-commits, 2023/05/31
- 02/21: tests: pypi: Factorize tarball and wheel file creation., guix-commits, 2023/05/31
- 09/21: diagnostics: Factorize 'absolute-location'., guix-commits, 2023/05/31
- 07/21: doc: Mention 'guix refresh -u' for third-party channels., guix-commits, 2023/05/31
- 11/21: upstream: Remove <upstream-input-change> and related code., guix-commits, 2023/05/31
- 10/21: upstream: 'update-package-source' edits input fields., guix-commits, 2023/05/31
- 12/21: tests: upstream: Restore test that was skipped., guix-commits, 2023/05/31
- 16/21: import: elpa: Updater provides input list., guix-commits, 2023/05/31
- 20/21: gnu: Add updater input properties for R and Python packages., guix-commits, 2023/05/31
- 21/21: tests: Use quasiquoted 'match' patterns for package sexps., guix-commits, 2023/05/31