Player.hs


1
2
3
4
5
6
7
8
9

module Player where

import Card (Card)
import qualified Card

data Player = Player { name :: String
                     , penalty :: Integer
                     , cards :: [Card]
                     }