hanafuda/protocol
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Implement a partial ordering on game coordinates to allow implementing re-synchronization easily

Browse source
This commit is contained in:
Tissevert 2020-01-25 11:13:56 +01:00
parent 59c467e988
commit e2019e2d3b
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Hanafuda/Message.hs
View file

@ -13,6 +13,7 @@ module Hanafuda.Message (
, PublicPlayer(..) , PublicPlayer(..)
, PublicState(..) , PublicState(..)
, Room , Room
, orderCoordinates
) where ) where
import Data.Char (toLower) import Data.Char (toLower)
@ -153,6 +154,13 @@ instance FromJSON Coordinates
instance ToJSON Coordinates where instance ToJSON Coordinates where
toEncoding = genericToEncoding defaultOptions toEncoding = genericToEncoding defaultOptions
orderCoordinates :: Coordinates -> Coordinates -> Maybe Ordering
orderCoordinates coordinatesA coordinatesB
| gameID coordinatesA == gameID coordinatesB = Just $ compare
(month coordinatesA, turn coordinatesA)
(month coordinatesB, turn coordinatesB)
| otherwise = Nothing
data PrivateState = PrivateState { data PrivateState = PrivateState {
link :: Coordinates link :: Coordinates
, hands :: Map PlayerID Hanafuda.Pack , hands :: Map PlayerID Hanafuda.Pack