1 files changed, 3 insertions, 3 deletions
diff --git a/Player.hs b/Player.hs
index 6f2804d..5aad025 100644
--- a/Player.hs
+++ b/Player.hs
@@ -25,11 +25,11 @@ draw :: Player -> [Card] -> Player
 draw (Player n p cs) cs' = Player n p $ L.sort (cs' ++ cs)
 
 -- | Show player's cards, e.g. "1. Spade 2"
-showCards :: Player -> Card -> String
-showCards (Player _ _ cs) prev =
+showCards :: Player -> Card -> Int -> String
+showCards (Player _ _ cs) prev att =
     unlines $ zipWith joinAndColorize [1..] cs
         where joinAndColorize n c =
-                  if C.isValid prev c
+                  if C.isValid prev att c
                      then if C.isSpecial c
                              then Color.green $ join n c
                              else join n c