diff --git a/src/Main.hs b/src/Main.hs index 16af157..86c403d 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -91,7 +91,7 @@ down = ( 0 , 1 ) -- Controleer of twee kaarten dezelfde kleur hebben. match :: Card -> Card -> Bool -match card1 card2 = undefined +match (_, color1, _) (_, color2, _) = color1 == color2 -- Zoek een kaart binnen een lijst van kaarten op basis van een positie. -- Wanneer een kaart gevonden is, wordt deze teruggegeven. Anders wordt