diff --git a/src/Hanafuda/Message.hs b/src/Hanafuda/Message.hs
index 35556ac..4271451 100644
--- a/src/Hanafuda/Message.hs
+++ b/src/Hanafuda/Message.hs
@@ -68,11 +68,10 @@ instance ToJSON Hanafuda.Card where
   toEncoding = genericToEncoding defaultOptions
 
 data FromClient =
-    Hello
-  | Tadaima {myID :: PlayerID}
+    Hello {name :: Text}
+  | Tadaima {myID :: PlayerID, name :: Text}
   | Answer {accept :: Bool, to :: PlayerID}
   | Invitation {to :: PlayerID}
-  | LogIn {name :: Text}
   | LogOut
   | Play {move :: KoiKoi.Move, onGame :: PublicGame}
   | Quit