Remove the use of forkPingThread in Yesod.WebSockets and replaced it with withPingThread

2020-11-04 20:34:37 -05:00 · 2020-11-04 20:34:37 -05:00 · ead5d3388f
commit ead5d3388f
parent bcae4c99b1
2 changed files with 3 additions and 3 deletions
--- a/yesod-websockets/Yesod/WebSockets.hs
+++ b/yesod-websockets/Yesod/WebSockets.hs
@ -117,8 +117,8 @@ webSocketsOptionsWith wsConnOpts buildAr inner = do
                    rhead
                    (\pconn -> do
                        conn <- WS.acceptRequestWith pconn ar
-                        WS.forkPingThread conn 30
-                        runInIO $ runReaderT inner conn)
+                        WS.withPingThread conn 30 (pure ()) $
+                            runInIO $ runReaderT inner conn)
                    src
                    sink

--- a/yesod-websockets/yesod-websockets.cabal
+++ b/yesod-websockets/yesod-websockets.cabal
@ -1,5 +1,5 @@
 name:                yesod-websockets
-version:             0.3.0.2
+version:             0.3.0.3
 synopsis:            WebSockets support for Yesod
 homepage:            https://github.com/yesodweb/yesod
 license:             MIT