Full decks and shuffling

1 files changed, 9 insertions, 0 deletions

diff --git a/Player.hs b/Player.hs
new file mode 100644
index 0000000..8a2adb6
--- /dev/null
+++ b/Player.hs
@@ -0,0 +1,9 @@
+module Player where
+
+import Card (Card)
+import qualified Card
+
+data Player = Player { name :: String
+                     , penalty :: Integer
+                     , cards :: [Card]
+                     }