Display player's cards in color

1 files changed, 1 insertions, 1 deletions

diff --git a/Game.hs b/Game.hs
index b9ad8bd..69c1d08 100644
--- a/Game.hs
+++ b/Game.hs
@@ -33,7 +33,7 @@ beginTurn game@(Game plyrs pidx att dir prev stock disc) = do
 
     putStrLn $ replicate 80 '-'
     putStrLn $ P.name player ++ "'s turn (input 0 to skip turn and draw card)"
-    putStrLn $ P.showCards player
+    putStrLn $ P.showCards player prev
     putStrLn $ "Current attack: " ++ show att
     putStrLn $ "Prev card: " ++ C.showCard prev