From 15f55656e63e0ef32954d27a5efa1fa05790358c Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Mon, 13 Nov 2023 03:07:28 +0100
Subject: main: Idea to sleep before reloading tab

I got this to work once, but not again after that for reloading the
current tab.
---
 src/main.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/main.lisp')

diff --git a/src/main.lisp b/src/main.lisp
index 8ea05ab..cf4facf 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -26,7 +26,7 @@
 (defvar *extensions* '()
   "TODO")
 
-(defconstant +timeout-seconds+ 5
+(defconstant +timeout-seconds+ 10
   "Global timeout. The program will exit at the end of this delay.")
 
 (defun main ()
@@ -171,6 +171,8 @@ the target to reload the current tab."
   ;; messages, so we need to add a second increment to the wait group.
   (wait-group:add *wg*)
 
+  (sleep 5)
+
   (websocket-send
     (ws-client *config*)
     (runtime-evaluate-msg
-- 
cgit v1.2.3