From 84954c062d2d418acce06d8233ce932ae08e769c Mon Sep 17 00:00:00 2001 From: Dennis Frieberg Date: Wed, 23 Sep 2020 02:00:08 +0200 Subject: [PATCH] minor stylistic improvements --- app/WebSocketApp.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/app/WebSocketApp.hs b/app/WebSocketApp.hs index 3b99cd4..dce3f37 100644 --- a/app/WebSocketApp.hs +++ b/app/WebSocketApp.hs @@ -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