-- change the  direction of the paddle, return a paddle that needs a new x-vel
changeDir :: Paddle -> Float -> Paddle
changeDir (Paddle x y w h v) = Paddle x y w h
changeDir :: Paddle -> Float -> Paddle
changeDir (Paddle x y w h v) = Paddle x y w h
changeDir (Paddle x y w h v) = Paddle x y w h