From 20cbc406fd3e162ff3ff44ddd779a406fceea0f7 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sat, 27 Feb 2021 16:48:40 +0100
Subject: ws-on-message: Move predicate checking tab reload exception to
 function

Give this check a name.
---
 l/src/main.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'l/src/main.lisp')

diff --git a/l/src/main.lisp b/l/src/main.lisp
index 9eaa8e3..61a48be 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -78,7 +78,7 @@
                     "sessionId")))
 
     ;; Failed to reload tab.
-    (when (jsown:keyp (json-obj-get response "result") "exceptionDetails")
+    (when (runtime-evaluate-exception-p response)
       ;; `reload-tab` adds an extra increment to the wait group. If the call
       ;; fails, we only receive one message instead of two, so the wait group
       ;; must be decremented to match.
-- 
cgit v1.2.3