From 68588db76baaf8f2f17dd9b7f3649b09e102ea85 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Thu, 30 Jul 2020 20:09:47 +0200
Subject: Pass black and white cards to the client

---
 client/src/Client.elm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

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

diff --git a/client/src/Client.elm b/client/src/Client.elm
index efd97fb..41871e9 100644
--- a/client/src/Client.elm
+++ b/client/src/Client.elm
@@ -70,16 +70,22 @@ view model = case model of
         ] ++
         (case game.view.blackCard of
             Nothing -> []
-            Just c -> [blackCard c])
+            Just c -> [blackCard c]) ++
+        (List.map whiteCard game.view.hand)
 
-blackCard : String -> Html a
-blackCard string =
+blackCard : Messages.BlackCard -> Html a
+blackCard (Messages.BlackCard string) =
     let blank = Html.span [Html.Attributes.class "blank"] [] in
-    Html.div [Html.Attributes.class "black"] <|
+    Html.div [Html.Attributes.class "card", Html.Attributes.class "black"] <|
     List.intersperse blank <|
     List.map Html.text <|
     String.split "\\BLANK" string
 
+whiteCard : Messages.WhiteCard -> Html a
+whiteCard (Messages.WhiteCard string) = Html.div
+    [Html.Attributes.class "card", Html.Attributes.class "white"]
+    [Html.text string]
+
 subscriptions : Model -> Sub Msg
 subscriptions model = webSocketIn WebSocketIn
 
-- 
cgit v1.2.3