Added a way to manually send a Pong message (#217)

jaspervdj · Dec 20, 2023 · 0da1993 · 0da1993
1 parent 7a39574
commit 0da1993
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Network/WebSockets/Connection.hs b/src/Network/WebSockets/Connection.hs
@@ -31,6 +31,7 @@ module Network.WebSockets.Connection
     , sendClose
     , sendCloseCode
     , sendPing
+    , sendPong
 
     , withPingThread
     , forkPingThread
@@ -388,6 +389,10 @@ sendCloseCode conn code =
 sendPing :: WebSocketsData a => Connection -> a -> IO ()
 sendPing conn = send conn . ControlMessage . Ping . toLazyByteString
 
+--------------------------------------------------------------------------------
+-- | Send a pong
+sendPong :: WebSocketsData a => Connection -> a -> IO ()
+sendPong conn = send conn . ControlMessage . Pong . toLazyByteString
 
 --------------------------------------------------------------------------------
 -- | Forks a ping thread, sending a ping message every @n@ seconds over the