ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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

Browse source 
* guix/import/json.scm (json-fetch): Add #:timeout and pass it to
'http-fetch'.
This commit is contained in:
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
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/import/json.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 David Thompson <davet@gnu.org> ;;; Copyright © 2014 David Thompson <davet@gnu.org>
;;; Copyright © 2015, 2016 Eric Bavier <bavier@member.fsf.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> ;;; Copyright © 2020 Ricardo Wurmus <rekado@elephly.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
@ -37,6 +37,7 @@ (define-module (guix import json)
(define* (json-fetch url (define* (json-fetch url
#:key #:key
(http-fetch http-fetch) (http-fetch http-fetch)
(timeout 10)
;; Note: many websites returns 403 if we omit a ;; Note: many websites returns 403 if we omit a
;; 'User-Agent' header. ;; 'User-Agent' header.
(headers `((user-agent . "GNU Guile") (headers `((user-agent . "GNU Guile")
@ -50,7 +51,7 @@ (define* (json-fetch url
(or (= 403 error) (or (= 403 error)
(= 404 error)))) (= 404 error))))
#f)) #f))
(let* ((port (http-fetch url #:headers headers)) (let* ((port (http-fetch url #:timeout timeout #:headers headers))
(result (json->scm port))) (result (json->scm port)))
(close-port port) (close-port port)
result))) result)))