Richtingen toegevoegd

src/Main.hs

@@ -84,10 +84,10 @@ initBoard = Board {
 
 -- De mogelijke richtingen van de selector.
 left, right, up, down :: Direction
-left  = undefined
-right = undefined
-up    = undefined
-down  = undefined
+left  = ((-1),  0 )
+right = (  1 ,  0 )
+up    = (  0 ,(-1))
+down  = (  0 ,  1 )
 
 -- Controleer of twee kaarten dezelfde kleur hebben.
 match :: Card -> Card -> Bool