diff --git a/src/Main.hs b/src/Main.hs
index c620c75..025b4a2 100644
--- a/src/Main.hs
+++ b/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