Add showCard

1 files changed, 2 insertions, 2 deletions

diff --git a/Main.hs b/Main.hs
index b858907..e42a3f0 100644
--- a/Main.hs
+++ b/Main.hs
@@ -1,6 +1,6 @@
 import System.Random (getStdGen)
-import Card (fullDecks, shuffle)
+import Card (fullDecks, showCard, shuffle)
 
 main = do
     gen <- getStdGen
-    print $ shuffle gen $ fullDecks 1
+    print $ map showCard $ shuffle gen $ fullDecks 2