LogOut becomes a server message (clients just shut the connection now)

src/Hanafuda/Message.hs

@@ -75,7 +75,6 @@ data FromClient =
   | Tadaima {myID :: PlayerID, name :: Text}
   | Answer {accept :: Bool, to :: PlayerID}
   | Invitation {to :: PlayerID}
-  | LogOut
   | Play {move :: KoiKoi.Move, onGame :: PublicGame}
   | Quit
   | Ping
@@ -198,6 +197,7 @@ data T =
   | Welcome {room :: Room, key :: PlayerID}
   | Okaeri {room :: Room}
   | LogIn {from :: PlayerID, as :: Text}
+  | LogOut {from :: PlayerID}
   | Game {state :: PublicGame, logs :: [KoiKoi.Action]}
   | Pong
   | Error {error :: String}