diff options
author | Jasper Van der Jeugt | 2020-07-30 22:07:37 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-07-30 22:07:37 +0200 |
commit | c92c0f65c733c9aba5c56313a4bc313a299e1230 (patch) | |
tree | c5bb44d969ac2b91e664e1235b00278cdece11d7 /client/src/Client.elm | |
parent | ab1267a757bcc997f05cc9babe2d1fb9bb681ce4 (diff) |
Some logic
Diffstat (limited to 'client/src/Client.elm')
-rw-r--r-- | client/src/Client.elm | 12 |
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 |