[mod] [Undertow adapter] close! now returns true iff actually closed

taoensso · Mar 7, 2023 · 318e90a · 318e90a
1 parent 2a91ad4
commit 318e90a
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/src/taoensso/sente/server_adapters/undertow.clj b/src/taoensso/sente/server_adapters/undertow.clj
@@ -45,9 +45,10 @@
   (sch-send!  [sch websocket? msg] (async/put! resp-ch msg (fn [_] (i/sch-close! sch))))
   (sch-open?  [sch] @open?_)
   (sch-close! [sch]
-    (when on-close (on-close sch false nil))
-    (reset! open?_ false)
-    (async/close! resp-ch))
+    (when (compare-and-set! open?_ true false)
+      (when on-close (on-close sch false nil))
+      (async/close! resp-ch)
+      true))
 
   ISenteUndertowAjaxChannel
   (ajax-read! [sch] (async/<!! resp-ch)))