From 06e507baaefb38853d5039bc25f58ddfd75b78dc Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Sun, 27 Oct 2024 15:18:41 +0200
Subject: [PATCH] Added retry logic to fetching process

---
 tiifetch.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tiifetch.tcl b/tiifetch.tcl
index 24a5f75..c483f97 100755
--- a/tiifetch.tcl
+++ b/tiifetch.tcl
@@ -154,7 +154,7 @@ proc getfile {url} {
       } else {return {}}
     }
     https - http {
-      set hs [::http::geturl $url -binary 1 -keepalive 0 -timeout 4000]
+      set hs [::http::geturl $url -binary 1 -keepalive 0 -timeout 10000]
       if {[::http::ncode $hs] eq "200"} {
         return [::http::data $hs]
       } else {return {}}