From 50417a01f71f973002171dcd9e5457721b3487ab Mon Sep 17 00:00:00 2001
From: Sree Harsha Totakura <address@hidden>
Date: Tue, 21 Jan 2014 08:56:37 +0100
Subject: [PATCH] - remove timeout

---
 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 901b3fb..ec620c5 100755
--- a/guix/scripts/substitute-binary.scm
+++ b/guix/scripts/substitute-binary.scm
@@ -142,7 +142,7 @@ provide."
      ;;   sudo tc qdisc del dev eth0 root
      (let ((port #f))
        (with-timeout (if (or timeout? (guile-version>? "2.0.5"))
-                         %fetch-timeout
+                         0
                          0)
          (begin
            (warning (_ "while fetching ~a: server is unresponsive~%")
-- 
1.7.10.4