From 76f9ba0bc6db162161c7acd8e3696fff3a3ba850 Mon Sep 17 00:00:00 2001
From: Tibo De Peuter <tibo.depeuter@telenet.be>
Date: Sat, 15 Oct 2022 19:51:59 +0200
Subject: [PATCH] renderCards

---
 src/Main.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 709d268..816f11b 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -216,9 +216,8 @@ renderCard card = renderColoredSquare scaling color
     where color = (\(_,c,_) -> c) card
 
 -- Render alle kaarten.
--- TODO Klopt deze functionaliteit?
 renderCards :: [Card] -> Picture
-renderCards = renderCard . head
+renderCards = pictures . map renderCard
 
 -- Render het speelveld.
 render :: Board -> Picture