From e3fbb06443198cb54a6ebee7b655838ac0ef57a2 Mon Sep 17 00:00:00 2001
From: Tibo De Peuter <tibo.depeuter@telenet.be>
Date: Sun, 16 Oct 2022 00:10:08 +0200
Subject: [PATCH] Fixed kunnen selecteren van reeds omgedraaide kaart

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

diff --git a/src/Main.hs b/src/Main.hs
index d96fc79..2e858aa 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -161,10 +161,10 @@ hideCard target = map (changeCard target Hidden)
 
 -- Draai de kaart op een gegeven positie op het bord om 
 -- als deze nog niet eerder werd omgedraaid.
--- TODO Hidden/Shown controleren
 flipCard :: Coordinate -> Board -> Board
 flipCard target board
-    | target `elem` (map firstOfThree (turned board)) = board -- Controleer al omgedraaid?
+    | target `elem` (map firstOfThree (turned board)) = board           -- Al in selectie?
+    | any (\(c,_,s) -> c == target && s == Shown) (cards board) = board -- Al omgedraaid?
     | otherwise  = board {
         cards    = newCards                -- Toon de kaart in de lijst van kaarten.
         , turned = flipped ++ turned board -- Voeg toe aan 'omgedraaide kaarten'.