Game.hs


1
2
3
4
5
6
7
8
9
10
11

module Game where

import Player (Player)
import qualified Player as P
import Card (Card)
import qualified Card as C

data Game = Game { players :: [Player]
                 , stockPile :: [Card]
                 , discardPile :: [Card]
                 }