Tidy.

1 files changed, 8 insertions, 9 deletions

diff --git a/Demos/Pong/Main.hs b/Demos/Pong/Main.hs
index ee55622..c863a55 100644
--- a/Demos/Pong/Main.hs
+++ b/Demos/Pong/Main.hs
@@ -53,6 +53,14 @@ step elapsed dt inputEvents = do
       }
   return (not $ exitRequested inputEvents)
 
+processInput :: Window -> Game GameState [GameEvent]
+processInput window = processKeys window
+  [ (KEY_A, MoveLeft)
+  , (KEY_D, MoveRight)
+  ]
+
+exitRequested = elem (KeyDown KEY_ESC)
+
 render :: Game GameState ()
 render = do
   gameState <- getGameState
@@ -113,12 +121,3 @@ resize (ResizeEvent w h) =
     modifyGameState $ \state -> state {
       viewProjection = Matrix4.ortho left right bottom top (-1) 1
     }
-
-
-processInput :: Window -> Game GameState [GameEvent]
-processInput window = processKeys window
-  [ (KEY_A, MoveLeft)
-  , (KEY_D, MoveRight)
-  ]
-
-exitRequested = elem (KeyDown KEY_ESC)