diff options
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 |