Kleurgelijkheid kaarten toegevoegd

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