Add default on-ping for websocket listener maps

devurandom · Nov 5, 2023 · b2e8966 · b2e8966
1 parent cefb95e
commit b2e8966
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/ring-core/src/ring/websocket.clj b/ring-core/src/ring/websocket.clj
@@ -19,7 +19,9 @@
     (when-let [kv (find m :on-close)] ((val kv) socket code reason)))
   p/PingListener
   (on-ping [m socket data]
-    (when-let [kv (find m :on-ping)] ((val kv) socket data))))
+    (if-let [kv (find m :on-ping)]
+      ((val kv) socket data)
+      (p/-pong socket data))))
 
 (defn open?
   "Returns true if the Socket is open, false otherwise."