1 files changed, 5 insertions, 5 deletions

diff --git a/Demos/Pong/Main.hs b/Demos/Pong/Main.hs
index 26ceefa..9f00643 100644
--- a/Demos/Pong/Main.hs
+++ b/Demos/Pong/Main.hs
@@ -113,10 +113,10 @@ resize (ResizeEvent w h) =
     }
 
 translateEvents = mapMaybe translateEvents'
-  where translateEvents' (KeyDown KEY_LEFT)  = Just MoveLeft
-        translateEvents' (KeyDown KEY_RIGHT) = Just MoveRight
-        translateEvents' (KeyUp KEY_LEFT)    = Just StopLeft
-        translateEvents' (KeyUp KEY_RIGHT)   = Just StopRight
-        translateEvents' _                   = Nothing
+  where translateEvents' (KeyDown KEY_A) = Just MoveLeft
+        translateEvents' (KeyDown KEY_D) = Just MoveRight
+        translateEvents' (KeyUp KEY_A)   = Just StopLeft
+        translateEvents' (KeyUp KEY_D)   = Just StopRight
+        translateEvents' _               = Nothing
 
 exitRequested = elem (KeyDown KEY_ESC)