diff --git a/src/Main.hs b/src/Main.hs
index 86c403d..726c70b 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -97,7 +97,8 @@ match (_, color1, _) (_, color2, _) = color1 == color2
 -- Wanneer een kaart gevonden is, wordt deze teruggegeven. Anders wordt
 -- een error teruggegeven.
 find :: Coordinate -> [Card] -> Card
-find target cards = undefined
+find c0 cards = head $ filter (\(c,_,_) -> c == c0) cards
+-- TODO Kan dit properder geschreven worden?
 
 -- Geef een permutatie van een gegeven lijst terug.
 -- Hint: Kijk zeker eens naar de System.Random en