[new] [#447] [Community adapters] Improve error message on Ajax read …

…timeouts

There may well be a better way of handling Ajax timeouts, but I'm unfortunately
not familiar with the involved servers.

PR or suggestions very welcome!

src/taoensso/sente/server_adapters/community/jetty.clj

@@ -63,10 +63,15 @@
 
   ISenteJettyAjaxChannel
   (ajax-read! [_sch]
-    (let [{:keys [ajax-resp-timeout-ms]} adapter-opts]
-      (if ajax-resp-timeout-ms
-        (deref resp-promise_ ajax-resp-timeout-ms nil)
-        (deref resp-promise_)))))
+    (let [{:keys [ajax-resp-timeout-ms]} adapter-opts
+          result
+          (if ajax-resp-timeout-ms
+            (deref resp-promise_ ajax-resp-timeout-ms ::timeout)
+            (deref resp-promise_))]
+
+      (if (= result ::timeout)
+        (throw (ex-info "Ajax read timeout" {:timeout-msecs ajax-resp-timeout-ms}))
+        result))))
 
 (defn- ajax-ch
   [{:keys [on-open on-close]} adapter-opts]

src/taoensso/sente/server_adapters/community/undertow.clj

@@ -54,10 +54,15 @@
 
   ISenteUndertowAjaxChannel
   (ajax-read! [sch]
-    (let [{:keys [ajax-resp-timeout-ms]} adapter-opts]
-      (if ajax-resp-timeout-ms
-        (deref resp-promise_ ajax-resp-timeout-ms nil)
-        (deref resp-promise_)))))
+    (let [{:keys [ajax-resp-timeout-ms]} adapter-opts
+          result
+          (if ajax-resp-timeout-ms
+            (deref resp-promise_ ajax-resp-timeout-ms ::timeout)
+            (deref resp-promise_))]
+
+      (if (= result ::timeout)
+        (throw (ex-info "Ajax read timeout" {:timeout-msecs ajax-resp-timeout-ms}))
+        result))))
 
 (defn- ajax-ch [{:keys [on-open on-close]} adapter-opts]
   (let [open?_ (atom true)