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

fix client timeout

Browse source
This commit is contained in:
nek0 2024-10-29 04:51:31 +01:00
parent 71b325b2a4
commit 60fc061d00
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src-server/Server/Communication/Send.hs
View file

@ -90,7 +90,7 @@ sendPings = do
put stateContainer put stateContainer
else do else do
random <- liftIO nextRandom random <- liftIO nextRandom
let newPong = (now, random) let newPong = (lastPongTime, random)
liftIO $ sendMessage liftIO $ sendMessage
( Ping random ( Ping random
) )