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

src/Main.hs

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