From ac3bdede4ed6b92e084eaa8e96a482e39423808b Mon Sep 17 00:00:00 2001
From: Tibo De Peuter <tibo.depeuter@telenet.be>
Date: Sat, 15 Oct 2022 17:15:28 +0200
Subject: [PATCH] restTurned functie toegevoegd

Recursieve functie die alle kaarten 'omgedraaide' kaarten terugdraait.
---
 src/Main.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 94ea42f..6d34f16 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -159,9 +159,7 @@ hideCard target = map (changeCard target Hidden)
 -- Draai de kaart op een gegeven positie op het bord om 
 -- als deze nog niet eerder werd omgedraaid.
 flipCard :: Coordinate -> Board -> Board
--- flipCard target board = board{turned (1,1),generateColor 1.1,Hidden):[]}
 flipCard target board
-    -- TODO Maak deze lamdba mooier.
     | target `elem` (map firstOfThree (turned board)) = board -- Controleer al omgedraaid?
     | otherwise  = board {
         cards    = newCards                -- Toon de kaart in de lijst van kaarten.
@@ -174,7 +172,7 @@ flipCard target board
 resetTurned :: Board -> Board
 resetTurned board
     | turned board == [] = board
-    | otherwise          = board {
+    | otherwise          = resetTurned board {
         cards    = hideCard target (cards board)
         , turned = tail $ turned board
     }