From af9ba36883d902d2415811377e4a67fab4d11226 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Sun, 2 Aug 2020 17:39:26 +0200
Subject: Start voting phase

---
 client/src/Client.elm | 8 ++++++++
 1 file changed, 8 insertions(+)

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

diff --git a/client/src/Client.elm b/client/src/Client.elm
index 5170e64..246748b 100644
--- a/client/src/Client.elm
+++ b/client/src/Client.elm
@@ -94,6 +94,7 @@ view model = case model of
 tableBlackCard : GameState -> Maybe BlackCard
 tableBlackCard game = case game.view.table of
     Messages.Proposing b _ -> Just b
+    Messages.Voting b _ _ _ -> Just b
 
 selectedWhiteCards : GameState -> List WhiteCard
 selectedWhiteCards game = case game.view.table of
@@ -116,6 +117,13 @@ viewTable game = case game.view.table of
             ]
             [Html.text "Propose"]
         ]
+    Messages.Voting black myProposal proposals myVote -> Html.div [] <|
+        [ Html.h2 [] [Html.text "Your proposal"]
+        , blackCard game.cards black myProposal
+        ] ++
+        [ Html.h2 [] [Html.text "Opponent proposals"]
+        ] ++
+        List.map (blackCard game.cards black) proposals
 
 intersperseWith : List a -> a -> List a -> List a
 intersperseWith values def list = case list of
-- 
cgit v1.2.3