From c6352a9669e4c5fd7bda2699f7ef4475a637e666 Mon Sep 17 00:00:00 2001
From: Tissevert <tissevert+devel@marvid.fr>
Date: Fri, 27 Dec 2019 17:55:14 +0100
Subject: [PATCH] Add GameIDs to PublicGame

---
 src/Hanafuda/Message.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Hanafuda/Message.hs b/src/Hanafuda/Message.hs
index 839265a..53d369b 100644
--- a/src/Hanafuda/Message.hs
+++ b/src/Hanafuda/Message.hs
@@ -31,7 +31,7 @@ import Data.Text.Encoding (decodeUtf8, encodeUtf8)
 import GHC.Generics (Generic)
 import qualified Hanafuda (Card(..), Flower(..), Pack, cardsOfPack, empty, packOfCards)
 import Hanafuda.ID (ID(..), IDType(..), Prefix(..))
-import Hanafuda.KoiKoi (PlayerID)
+import Hanafuda.KoiKoi (GameID, PlayerID)
 import qualified Hanafuda.KoiKoi as KoiKoi (
       Action(..), Game(..), Mode(..), Move(..), Player(..), Players(..), PlayerTurn
     , Score, Scores, Source(..), Step(..), Yaku(..)
@@ -181,7 +181,8 @@ instance ToJSON ByteString where
   toEncoding = toEncoding . decodeUtf8 . B64.encode
 
 data PublicGame = PublicGame {
-      nonce :: ByteString
+      gameID :: GameID
+    , nonce :: ByteString
     , playerHand :: Hanafuda.Pack
     , private :: ByteString
     , public :: PublicState