diff options
Diffstat (limited to 'Player.hs')
-rw-r--r-- | Player.hs | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -36,6 +36,11 @@ showCards (Player _ _ cs) prev att = else Color.red $ join n c join n c = (show n) ++ ". " ++ (C.showCard c) +-- | Empty all players' cards. +clearCards :: [Player] -> [Player] +clearCards plyrs = map clear plyrs + where clear (Player n p _) = Player n p [] + -- | Update penalty for each player after a round. calcPenalties :: [Player] -> [Player] calcPenalties plyrs = map penalize plyrs |