From 3b7d11c6182b8aa3d3d4f9e36c213e4eba6c8d8f Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Thu, 30 Jul 2020 19:42:26 +0200
Subject: Add cards from CardsAgainstCryptography

---
 client/src/Messages.elm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'client/src/Messages.elm')

diff --git a/client/src/Messages.elm b/client/src/Messages.elm
index 3fbacc3..77b3830 100644
--- a/client/src/Messages.elm
+++ b/client/src/Messages.elm
@@ -11,19 +11,22 @@ import Set exposing (Set)
 type alias GameView  =
    { opponents: (List String)
    , myName: String
+   , blackCard: (Maybe String)
    }
 
 jsonDecGameView : Json.Decode.Decoder ( GameView )
 jsonDecGameView =
-   Json.Decode.succeed (\popponents pmyName -> {opponents = popponents, myName = pmyName})
+   Json.Decode.succeed (\popponents pmyName pblackCard -> {opponents = popponents, myName = pmyName, blackCard = pblackCard})
    |> required "opponents" (Json.Decode.list (Json.Decode.string))
    |> required "myName" (Json.Decode.string)
+   |> fnullable "blackCard" (Json.Decode.string)
 
 jsonEncGameView : GameView -> Value
 jsonEncGameView  val =
    Json.Encode.object
    [ ("opponents", (Json.Encode.list Json.Encode.string) val.opponents)
    , ("myName", Json.Encode.string val.myName)
+   , ("blackCard", (maybeEncode (Json.Encode.string)) val.blackCard)
    ]
 
 
-- 
cgit v1.2.3