fix client timeout

2024-10-29 04:51:31 +01:00 · 2024-10-29 04:51:31 +01:00 · 60fc061d00
commit 60fc061d00
parent 71b325b2a4
1 changed files with 1 additions and 1 deletions
--- a/src-server/Server/Communication/Send.hs
+++ b/src-server/Server/Communication/Send.hs
@ -90,7 +90,7 @@ sendPings = do
            put stateContainer
          else do
            random <- liftIO nextRandom
-            let newPong = (now, random)
+            let newPong = (lastPongTime, random)
            liftIO $ sendMessage
              ( Ping random
              )