diff options
author | Jasper Van der Jeugt | 2020-08-02 17:39:26 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-08-02 17:39:26 +0200 |
commit | af9ba36883d902d2415811377e4a67fab4d11226 (patch) | |
tree | bc04d13713096b8aa3c9aab36a3fb18e4ada2b28 /client/src/Client.elm | |
parent | 87ca5a6958222b22806392884da0352d7e665665 (diff) |
Start voting phase
Diffstat (limited to '')
-rw-r--r-- | client/src/Client.elm | 8 |
1 files changed, 8 insertions, 0 deletions
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 |