fixing pings!

src-server/Server/Communication.hs

@@ -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