diff --git a/src/Hanafuda/Message.hs b/src/Hanafuda/Message.hs index fc2c536..e9de70f 100644 --- a/src/Hanafuda/Message.hs +++ b/src/Hanafuda/Message.hs @@ -33,8 +33,8 @@ import qualified Hanafuda (Card(..), Flower(..), Pack, cardsOfPack, empty, packO import Hanafuda.ID (ID(..), getID) import Hanafuda.KoiKoi (PlayerID) import qualified Hanafuda.KoiKoi as KoiKoi ( - Action(..), Game(..), Mode(..), Move(..), Player(..), Players(..), Score - , Scores, Source(..), Step(..), Yaku(..) + Action(..), Game(..), Mode(..), Move(..), Player(..), Players(..), PlayerTurn + , Score, Scores, Source(..), Step(..), Yaku(..) ) import Hanafuda.Player (Player(..), Players(..)) @@ -168,6 +168,7 @@ data PublicState = PublicState { mode :: KoiKoi.Mode , scores :: KoiKoi.Scores , month :: Hanafuda.Flower + , nextPlayer :: KoiKoi.PlayerTurn , players :: Map PlayerID PublicPlayer , playing :: PlayerID , winning :: PlayerID