-- Whenever any of the keys 'a', 'd', 'w', or 's' have been pushed down, move our character in the corresponding
-- direction.
handle (EventKey (Char 'a') Down _ _) (World (x, y)) = World (x - 10, y)
handle (EventKey (Char 'a') Down _ _) (World (x, y)) = World (x - 10, y)
handle (EventKey (Char 'a') Down _ _) (World (x, y)) = World (x - 10, y)