LogIn is back, but now it's a Server message

src/Hanafuda/Message.hs

@@ -197,6 +197,7 @@ data T =
     Relay {from :: PlayerID, message :: FromClient}
   | Welcome {room :: Room, key :: PlayerID}
   | Okaeri {room :: Room}
+  | LogIn {from :: PlayerID, as :: Text}
   | Game {state :: PublicGame, logs :: [KoiKoi.Action]}
   | Pong
   | Error {error :: String}