From 916d179009681f8791db40f3f600c5a66bec5d04 Mon Sep 17 00:00:00 2001
From: "alonso.torres" <alonso.torres@kaleidos.net>
Date: Thu, 7 Mar 2024 17:06:10 +0100
Subject: [PATCH] :bug: Fix error on websockets page

---
 frontend/src/app/main/ui/dashboard/team.cljs | 37 ++++++++++----------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/frontend/src/app/main/ui/dashboard/team.cljs b/frontend/src/app/main/ui/dashboard/team.cljs
index a2f80d0588..4307d66ccc 100644
--- a/frontend/src/app/main/ui/dashboard/team.cljs
+++ b/frontend/src/app/main/ui/dashboard/team.cljs
@@ -787,24 +787,25 @@
 
         on-error
         (mf/use-fn
-         (fn [form {:keys [type code hint] :as error}]
-           (if (and (= type :validation)
-                    (= code :webhook-validation))
-             (let [message (cond
-                             (= hint "unknown")
-                             (tr "errors.webhooks.unexpected")
-                             (= hint "invalid-uri")
-                             (tr "errors.webhooks.invalid-uri")
-                             (= hint "ssl-validation-error")
-                             (tr "errors.webhooks.ssl-validation")
-                             (= hint "timeout")
-                             (tr "errors.webhooks.timeout")
-                             (= hint "connection-error")
-                             (tr "errors.webhooks.connection")
-                             (str/starts-with? hint "unexpected-status")
-                             (tr "errors.webhooks.unexpected-status" (extract-status hint)))]
-               (swap! form assoc-in [:errors :uri] {:message message}))
-             (rx/throw error))))
+         (fn [form error]
+           (let [{:keys [type code hint]} (ex-data error)]
+             (if (and (= type :validation)
+                      (= code :webhook-validation))
+               (let [message (cond
+                               (= hint "unknown")
+                               (tr "errors.webhooks.unexpected")
+                               (= hint "invalid-uri")
+                               (tr "errors.webhooks.invalid-uri")
+                               (= hint "ssl-validation-error")
+                               (tr "errors.webhooks.ssl-validation")
+                               (= hint "timeout")
+                               (tr "errors.webhooks.timeout")
+                               (= hint "connection-error")
+                               (tr "errors.webhooks.connection")
+                               (str/starts-with? hint "unexpected-status")
+                               (tr "errors.webhooks.unexpected-status" (extract-status hint)))]
+                 (swap! form assoc-in [:errors :uri] {:message message}))
+               (rx/throw error)))))
 
         on-create-submit
         (mf/use-fn