From e10afdfac1b1d315494e8f965b93fbd3a73177bd Mon Sep 17 00:00:00 2001 From: Tissevert Date: Thu, 17 Oct 2019 19:49:50 +0200 Subject: [PATCH] Rename fields for lighter syntax --- src/Hanafuda/Message.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Hanafuda/Message.hs b/src/Hanafuda/Message.hs index 321d144..fc2c536 100644 --- a/src/Hanafuda/Message.hs +++ b/src/Hanafuda/Message.hs @@ -192,8 +192,8 @@ instance ToJSON ByteString where data PublicGame = PublicGame { nonce :: ByteString , playerHand :: Hanafuda.Pack - , privateState :: ByteString - , publicState :: PublicState + , private :: ByteString + , public :: PublicState , publicSignature :: ByteString } deriving Generic