me
/
guix
Archived
1
0
Fork 0

import: json: Add #:timeout to 'json-fetch'.

* guix/import/json.scm (json-fetch): Add #:timeout and pass it to
'http-fetch'.
master
Ludovic Courtès 2023-05-15 22:53:20 +02:00
parent 4663cfd381
commit e7910f4882
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 2 deletions

View File

@ -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)))