From 8b79e2e641d4f0ff0b5859f11be2c523c608fe26 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 11 Jul 2013 22:22:22 +0200
Subject: [PATCH] substitute-binary: Increase the default timeout.

* guix/scripts/substitute-binary.scm (%fetch-timeout): Set to 5 seconds.
---
 guix/scripts/substitute-binary.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/guix/scripts/substitute-binary.scm b/guix/scripts/substitute-binary.scm
index fb2eb4dbe81..e6244245d3a 100755
--- a/guix/scripts/substitute-binary.scm
+++ b/guix/scripts/substitute-binary.scm
@@ -107,7 +107,7 @@ (define (fields->alist port)
 
 (define %fetch-timeout
   ;; Number of seconds after which networking is considered "slow".
-  3)
+  5)
 
 (define %random-state
   (seed->random-state (+ (ash (cdr (gettimeofday)) 32) (getpid))))
-- 
GitLab