Remove handling from LogOut messages that are no longer sent by client but by the server

src/Automaton.hs

@@ -11,7 +11,7 @@ import qualified Messaging (
     broadcast, get, notifyPlayers, relay, send, sendTo
   )
 import qualified Player (T(..))
-import qualified Server (logIn, logOut, register, room, update)
+import qualified Server (logIn, register, room, update)
 import qualified Session (Status, T(..), setPlayer)
 
 receive :: Message.FromClient -> Session.Status -> App.T ()
@@ -38,9 +38,11 @@ receive (Message.Tadaima {Message.myID, Message.name}) Nothing = do
 
 receive (Message.Tadaima {}) (Just _) = sendError "You're already logged in"
 
+{-
 receive logOut@Message.LogOut (Just _) = do
   asks App.sessionID >>= App.update . Server.logOut
   Messaging.relay logOut Messaging.broadcast
+-}
 
 receive invitation@(Message.Invitation {Message.to}) (Just _) =
   Messaging.relay invitation (Messaging.sendTo [to])