diff options
author | Jasper Van der Jeugt | 2020-07-30 20:09:47 +0200 |
---|---|---|
committer | Jasper Van der Jeugt | 2020-07-30 20:09:47 +0200 |
commit | 68588db76baaf8f2f17dd9b7f3649b09e102ea85 (patch) | |
tree | 5704809d61b4ecfb6ac40f06b1ad51e23c9d313c /client/src/Client.elm | |
parent | 3b7d11c6182b8aa3d3d4f9e36c213e4eba6c8d8f (diff) |
Pass black and white cards to the client
Diffstat (limited to '')
-rw-r--r-- | client/src/Client.elm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/client/src/Client.elm b/client/src/Client.elm index efd97fb..41871e9 100644 --- a/client/src/Client.elm +++ b/client/src/Client.elm @@ -70,16 +70,22 @@ view model = case model of ] ++ (case game.view.blackCard of Nothing -> [] - Just c -> [blackCard c]) + Just c -> [blackCard c]) ++ + (List.map whiteCard game.view.hand) -blackCard : String -> Html a -blackCard string = +blackCard : Messages.BlackCard -> Html a +blackCard (Messages.BlackCard string) = let blank = Html.span [Html.Attributes.class "blank"] [] in - Html.div [Html.Attributes.class "black"] <| + Html.div [Html.Attributes.class "card", Html.Attributes.class "black"] <| List.intersperse blank <| List.map Html.text <| String.split "\\BLANK" string +whiteCard : Messages.WhiteCard -> Html a +whiteCard (Messages.WhiteCard string) = Html.div + [Html.Attributes.class "card", Html.Attributes.class "white"] + [Html.text string] + subscriptions : Model -> Sub Msg subscriptions model = webSocketIn WebSocketIn |