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'.