diff --git a/src/Hanafuda/Message.hs b/src/Hanafuda/Message.hs index 6d1f7c2..839265a 100644 --- a/src/Hanafuda/Message.hs +++ b/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}