Some logic

1 files changed, 9 insertions, 3 deletions

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