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

Switch session logging out and relaying the log-out message to keep the sessionID accessible until the end

Browse source
This commit is contained in:
Tissevert 2019-11-18 17:11:05 +01:00
parent a07285c7fc
commit 3bd2829cf2
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Main.hs
View file

@ -21,8 +21,8 @@ import qualified Session (open)
exit :: App.T () exit :: App.T ()
exit = do exit = do
asks App.sessionID >>= App.update . Server.logOut
Messaging.relay Message.LogOut broadcast Messaging.relay Message.LogOut broadcast
asks App.sessionID >>= App.update . Server.logOut
serverApp :: App.T () -> App.T () -> IO ServerApp serverApp :: App.T () -> App.T () -> IO ServerApp
serverApp onEnter onExit = do serverApp onEnter onExit = do