From c92c0f65c733c9aba5c56313a4bc313a299e1230 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Thu, 30 Jul 2020 22:07:37 +0200
Subject: Some logic

---
 client/src/Client.elm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

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

diff --git a/client/src/Client.elm b/client/src/Client.elm
index 5c6d167..194fd80 100644
--- a/client/src/Client.elm
+++ b/client/src/Client.elm
@@ -72,11 +72,17 @@ view model = case model of
                 [Html.text "change"]
             ]
         ] ++
-        (case game.view.blackCard of
-            Nothing -> []
-            Just c -> [blackCard game.cards c]) ++
+        [viewTable game.cards game.view.table] ++
         (List.map (whiteCard game.cards) game.view.hand)
 
+viewTable : Cards -> Messages.TableView -> Html a
+viewTable cards (Messages.Proposing c my) = Html.div [] <|
+    [ blackCard cards c
+    ] ++
+    (case my of
+        Nothing -> []
+        Just mc -> [whiteCard cards mc])
+
 blackCard : Cards -> Messages.BlackCard -> Html a
 blackCard cards (Messages.BlackCard idx) =
     let blank = Html.span [Html.Attributes.class "blank"] [] in
-- 
cgit v1.2.3