-- A pressed 'a' and 'd' key moves the character a fixed distance left or right.
applyMovement _now _time (World (x, y) v anim keys) = if elem 'a' keys
                                                      then World (moveX (x, y) (-10)) v anim keys
                                                      else if elem 'd' keys
                                                      then World (moveX (x, y) 10) v anim keys
                                                      else World (x, y) v anim keys
applyMovement _now _time (World (x, y) v anim keys) = if elem 'a' keys
                                                      then World (moveX (x, y) (-10)) v anim keys
                                                      else if elem 'd' keys
                                                      then World (moveX (x, y) 10) v anim keys
                                                      else World (x, y) v anim keys
applyMovement _now _time (World (x, y) v anim keys) = if elem 'a' keys
                                                      then World (moveX (x, y) (-10)) v anim keys
                                                      else if elem 'd' keys
                                                      then World (moveX (x, y) 10) v anim keys
                                                      else World (x, y) v anim keys