-- Pas playerX of playerY aan als de speler W, A, S of D indrukt.
-- De nieuwe playerX en playerY waardes worden dan in render gebruikt om ook de Picture aan te passen.
movePlayer :: Direction -> GameState -> GameState
movePlayer North game = game { player = (player game) { playerY = yv } }
                      where
                      y = playerY (player game)
                      yv = y + 10
movePlayer :: Direction -> GameState -> GameState
movePlayer North game = game { player = (player game) { playerY = yv } }
                      where
                      y = playerY (player game)
                      yv = y + 10
movePlayer North game = game { player = (player game) { playerY = yv } }
                      where
                      y = playerY (player game)
                      yv = y + 10