module Player where import Card (Card) import qualified Card data Player = Player { name :: String , penalty :: Integer , cards :: [Card] }