nek0/wizard-wipeout
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fixing pings!

Browse source
This commit is contained in:
nek0 2024-05-01 03:37:10 +02:00
parent ab4a2a4130
commit 13045c4ba9
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src-server/Server/Communication.hs
View file

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