From 8af40a7846f2aebba6eedc978f694d57e169af0e Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 21 Feb 2021 02:34:26 +0100
Subject: ws-on-message: Adjust debug messages

Move the response print calls to the top of the WebSocket message
receiver to make debug output chronology easier to follow.
---
 l/src/main.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/l/src/main.lisp b/l/src/main.lisp
index 3694f01..9acff14 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -51,6 +51,9 @@
 (defun ws-on-message (message extension-ids reload-current-tab)
   (let* ((response (jsown:parse message))
          (targets (parse-get-targets-response response)))
+    (format t "Response: ~a~%" response)
+    (format t "~a~%" *wg*)
+
     (when targets
       (let ((targets (extension-targets targets)))
         (setf *extension-targets-count* (length targets))
@@ -64,6 +67,7 @@
 
     (when (and reload-current-tab
                (runtime-evaluate-msg-p response))
+      (format t "Reloading based on response: ~a~%" response)
       (reload-tab (json-obj-get
                     (json-obj-get response "result")
                     "sessionId")))
@@ -72,9 +76,6 @@
     (when (jsown:keyp (json-obj-get response "result") "exceptionDetails")
       (reload-tab (json-obj-get response "sessionId")))
 
-    (format t "Response: ~a~%" response)
-    (format t "~a~%" *wg*)
-
     (wait-group:done *wg*)))
 
 (defun json-obj-get (obj key)
-- 
cgit v1.2.3