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

fix fromJust issue

Browse source
This commit is contained in:
nek0 2024-11-04 09:41:22 +01:00
parent bcda028720
commit 56590056f2
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src-server/Server/Communication/Handler.hs
View file

@ -67,8 +67,11 @@ handleMessage stateContainer readerContainer msg = do
currentPlayers <- STM.atomically $ STM.readTMVar (scPlayers stateContainer)
let newPlayers = filter (\p -> playerId p /= clientId) currentPlayers
void $ STM.atomically $ STM.swapTMVar (scPlayers stateContainer) newPlayers
let client = find (\a -> csUUID a == Just clientId) socks
dropClient curLevel socketList queueList (csSocket $ fromJust client)
let mclient = find (\a -> csUUID a == Just clientId) socks
maybe
(logPrintIO curLevel Warning $ "unknown client: " <> show clientId)
(dropClient curLevel socketList queueList . csSocket)
mclient
logPrintIO curLevel Info $ "client has quit the game: " <> show clientId
ClientRequestWizard -> do
let arena = rcMap readerContainer