From ae043bb239136985d11344306c992943df0a6583 Mon Sep 17 00:00:00 2001
From: Tibo De Peuter <tibo.depeuter@telenet.be>
Date: Tue, 11 Oct 2022 09:43:02 +0200
Subject: [PATCH] Richtingen toegevoegd

---
 src/Main.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 87cb405..16af157 100644
--- a/src/Main.hs
+++ b/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