Add cards

This commit is contained in:
Correl Roush 2020-05-16 17:01:50 -04:00
parent 09a4523263
commit 9e1b3d2cc0

View file

@ -282,8 +282,17 @@ viewCards selected =
, label = el [ centerX, centerY ] (text value)
}
in
wrappedRow [ centerX, width fill, spacing 30] <|
List.map card [ "1", "3", "5", "8", "13" ]
wrappedRow [ centerX, width fill, spacing 30 ] <|
List.map card
[ "1"
, "2"
, "3"
, "5"
, "8"
, "13"
, "?"
, ""
]
viewPlayers : List Player -> Bool -> Element Msg