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 requestHandler conn (tl, pl, cls, sem) (TL.InitializeTickLeisteR preTickLeiste) = do
(tl', pl') <- playerNameListToTickLeisteList preTickLeiste (tl', pl') <- playerNameListToTickLeisteList preTickLeiste
let tll = tickLeisteListToPlayerList pl tl' let tll = tickLeisteListToPlayerList pl tl'
broadcastEvent (TL.InitializeTickLeisteE $ tll) cls broadcastEvent (TL.InitializeTickLeisteE tll) cls
return (TL.fromList tl', pl', cls, sem) return (TL.fromList tl', pl', cls, sem)
-- TODO -- TODO
-- Also TickLeisteR must be inside the modifyMVar, because we use the MVar also as a lock, and we can't -- 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. -- 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 sendClientEvent (TL.InitializeTickLeisteE $ tickLeisteToPlayerList pl tl) conn
return ss return ss
requestHandler conn (tl, pl, cls, sem) (TL.ChangeNameR playerUUID playerName) = do requestHandler conn (tl, pl, cls, sem) (TL.ChangeNameR playerUUID playerName) = do