Start removing deprecated data from protocol messages

src/Hanafuda/Message.hs

@@ -69,7 +69,7 @@ instance ToJSON Hanafuda.Card where
   toEncoding = genericToEncoding defaultOptions
 
 data FromClient =
-    Answer {accept :: Bool}
+    Answer {accept :: Bool, to :: PlayerID}
   | Invitation {to :: PlayerID}
   | LogIn {name :: Text}
   | LogOut
@@ -205,7 +205,6 @@ instance ToJSON PublicGame where
 data T =
     Relay {from :: PlayerID, message :: FromClient}
   | Welcome {room :: Room, key :: PlayerID}
-  | Update {alone :: [PlayerID], paired :: [PlayerID]}
   | Game {state :: PublicGame, logs :: [KoiKoi.Action]}
   | Pong
   | Error {error :: String}