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