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