Store the player turns in the public state of games

This commit is contained in:
Tissevert 2019-10-22 17:43:33 +02:00
parent e10afdfac1
commit 8538b8f5ea

View file

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