diff options
Diffstat (limited to 'src/main.lisp')
| -rw-r--r-- | src/main.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
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 |