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

Follow «Coordinates» change in protocol

Browse source
This commit is contained in:
Tissevert 2020-01-18 09:35:19 +01:00
parent 4436ea10f7
commit ca30340aaa
1 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
src/Game.hs
View file

@ -22,7 +22,7 @@ import qualified Hanafuda.KoiKoi as KoiKoi (
Action, Game(..), Move(..), play, new
)
import Hanafuda.Message (
GameState(..), PrivateState(..), PublicGame(..), PublicPlayer(..)
Coordinates(..), PrivateState(..), PublicGame(..), PublicPlayer(..)
, PublicState(..)
)
import qualified Hanafuda.Player as Player (Player(..), Players(..), get)
@ -38,13 +38,14 @@ exportPlayers game =
let (Player.Players players) = KoiKoi.players game in
players
getGameState :: Game -> GameState
getGameState game = GameState {
getCoordinates :: Game -> Coordinates
getCoordinates game = Coordinates {
gameID = KoiKoi.gameID game
, turns = 24 - length (KoiKoi.deck game)
, month = KoiKoi.month game
, turn = 24 - length (KoiKoi.deck game)
}
privateState :: GameState -> Game -> PrivateState
privateState :: Coordinates -> Game -> PrivateState
privateState link game = PrivateState {
link
, hands = Player.hand <$> players
@ -69,12 +70,11 @@ privatePlayer publicPlayers playerID hand = Player.Player {
, Player.yakus = yakus (publicPlayers ! playerID)
}
publicState :: GameState -> Game -> PublicState
publicState gameState game = PublicState {
gameState
publicState :: Coordinates -> Game -> PublicState
publicState coordinates game = PublicState {
coordinates
, mode = KoiKoi.mode game
, scores = KoiKoi.scores game
, month = KoiKoi.month game
, nextPlayer = KoiKoi.nextPlayer game
, players = publicPlayer <$> exportPlayers game
, playing = KoiKoi.playing game
@ -98,19 +98,19 @@ exportGame playerID game = do
, publicSignature = signDetached (Keys.secret sign) $ toJSON public
}
where
sharedState = getGameState game
public = publicState sharedState game
private = privateState sharedState game
shared = getCoordinates game
public = publicState shared game
private = privateState shared game
toJSON :: ToJSON a => a -> ByteString
toJSON = toStrict . encode
merge :: PublicState -> PrivateState -> Game
merge public private = KoiKoi.Game {
KoiKoi.gameID = gameID $ gameState public
KoiKoi.gameID = gameID $ coordinates public
, KoiKoi.mode = mode public
, KoiKoi.scores = scores public
, KoiKoi.month = month public
, KoiKoi.month = month $ coordinates public
, KoiKoi.nextPlayer = nextPlayer public
, KoiKoi.players = Player.Players $
mapWithKey (privatePlayer $ players public) (hands private)
@ -133,7 +133,7 @@ importGame PublicGame {nonce, private, public, publicSignature} =
decrypted <- secretboxOpen encrypt n private
`orDie` "Could not decrypt private state"
decoded <- eitherDecode' (fromStrict decrypted)
check (link decoded == gameState public)
check (link decoded == coordinates public)
`orDie` "Private and public parts do not match"
return $ merge public decoded
where