fixing pings!

This commit is contained in:
nek0 2024-05-01 03:37:10 +02:00
parent ab4a2a4130
commit 13045c4ba9

View file

@ -336,7 +336,7 @@ sendPings = do
put stateContainer
else do
random <- liftIO nextRandom
let newPong = (lastPongTime, random)
let newPong = (now, random)
liftIO $ sendMessage
( Ping random
)
@ -348,6 +348,6 @@ sendPings = do
otherPlayers = filter (\a -> playerId a /= plId) players
liftIO $ void $ STM.atomically $
STM.swapTMVar (scPlayers stateContainer) (newPlayer : otherPlayers)
put stateContainer
)
players
put stateContainer