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

Add needed JSON instances for PrivateState

Browse source
This commit is contained in:
Tissevert 2019-10-17 12:13:15 +02:00
parent 5cccd05290
commit 0c2974b055
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Hanafuda/Message.hs
View file

@ -150,6 +150,10 @@ data PrivateState = PrivateState {
, deck :: [Hanafuda.Card] , deck :: [Hanafuda.Card]
} deriving Generic } deriving Generic
instance FromJSON PrivateState
instance ToJSON PrivateState where
toEncoding = genericToEncoding defaultOptions
data PublicPlayer = PublicPlayer { data PublicPlayer = PublicPlayer {
meld :: Hanafuda.Pack meld :: Hanafuda.Pack
, yakus :: KoiKoi.Score , yakus :: KoiKoi.Score