hanafuda
/
server
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Implement proper user renaming + broadcast new name upon receiving a Hello message in a connected state

This commit is contained in:
Tissevert 2020-02-02 19:23:24 +01:00
parent 07a81237b6
commit 465c6981ae
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Automaton.hs
View File

@ -15,7 +15,7 @@ import qualified Messaging (
broadcast, get, notifyPlayers, relay, send, sendTo
)
import qualified Player (T(..))
import qualified Server (logIn, register, room, update)
import qualified Server (T(..), logIn, register, room, update)
import qualified Session (Status, T(..), setPlayer)
receive :: Message.FromClient -> Session.Status -> App.T ()
@ -29,9 +29,11 @@ receive (Message.Hello {Message.name}) Nothing = do
Messaging.broadcast $ Message.LogIn playerID name
receive (Message.Hello {Message.name}) (Just player) = do
sessionID <- asks App.sessionID
App.update (Server.update sessionID setName)
sessionIDs <- (! playerID) <$> App.get Server.sessionIDsByPlayerID
App.update (\server -> foldr (flip Server.update setName) server sessionIDs)
Messaging.broadcast $ Message.LogIn playerID name
where
playerID = Player.playerID player
setName session = session {Session.player = Just $ player {Player.name}}
receive (Message.Tadaima {Message.myID, Message.name}) Nothing = do