Splittertech/tickLeisteServer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

minor stylistic improvements

Browse source
This commit is contained in:
Dennis Frieberg 2020-09-23 02:00:08 +02:00
parent 5c791a5cbb
commit 84954c062d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
app/WebSocketApp.hs
View file

@ -97,13 +97,13 @@ requestHandler conn (tl, pl, cls, sem) (TL.AddPlayerTickR playerName tick) = do
requestHandler conn (tl, pl, cls, sem) (TL.InitializeTickLeisteR preTickLeiste) = do
(tl', pl') <- playerNameListToTickLeisteList preTickLeiste
let tll = tickLeisteListToPlayerList pl tl'
broadcastEvent (TL.InitializeTickLeisteE $ tll) cls
broadcastEvent (TL.InitializeTickLeisteE tll) cls
return (TL.fromList tl', pl', cls, sem)
-- TODO
-- Also TickLeisteR must be inside the modifyMVar, because we use the MVar also as a lock, and we can't
-- have changes between reading the TickLeiste and sending it.
requestHandler conn ss@(tl, pl, cls, sem) (TL.TickLeisteR) = do
requestHandler conn ss@(tl, pl, cls, sem) TL.TickLeisteR = do
sendClientEvent (TL.InitializeTickLeisteE $ tickLeisteToPlayerList pl tl) conn
return ss
requestHandler conn (tl, pl, cls, sem) (TL.ChangeNameR playerUUID playerName) = do