sync: add a timeout to download

1 files changed, 6 insertions, 0 deletions

diff --git a/gnunet/sync.scm b/gnunet/sync.scm
index 1985f60..93c7b88 100644
--- a/gnunet/sync.scm
+++ b/gnunet/sync.scm
@@ -149,10 +149,16 @@ code is non-zero; otherwise return #t."
   (lambda ()
     (fs-download-stop download-context #true)))
 
+(define (download/timeout)
+  (scheduler-shutdown))
+
+(define %one-second (* 3 (expt 10 6)))
+
 (define (download/task configuration uri callback)
   (lambda ()
     (let ((fs (fs-start configuration "c3b2" (download/progress callback))))
       (let ((download-context (fs-download-start fs uri 0 #:filename "c3b2.out")))
+        (scheduler-add-delayed %one-second download/timeout)
         (scheduler-add-shutdown (download/task/shutdown download-context))))))
 
 (define (download-exec configuration uri callback)