Make the played cards in the background reflect the slots in the call.

This commit is contained in:
Gareth Latty
2016-07-27 13:07:00 +01:00
parent c6dd28da05
commit a06803d119
+2 -1
View File
@@ -207,8 +207,9 @@ lobbyAndHandUpdated lobbyModel round =
(newShownPlayed, seed) = case playedCards of
Just amount ->
let
toShow = amount * (Card.slots round.call)
existing = (List.length shownPlayed.animated) + (List.length shownPlayed.toAnimate)
(new, seed) = addShownPlayed (amount - existing) model.seed
(new, seed) = addShownPlayed (toShow - existing) model.seed
in
(ShownPlayedCards shownPlayed.animated (shownPlayed.toAnimate ++ new), seed)