Spacing.

1 files changed, 6 insertions, 0 deletions

diff --git a/Demos/Pong/Main.hs b/Demos/Pong/Main.hs
index d51a324..66fa223 100644
--- a/Demos/Pong/Main.hs
+++ b/Demos/Pong/Main.hs
@@ -26,12 +26,15 @@ data GameState = GameState
   , world           :: [GameObject]
   }
 
+
 app = App defaultAppOptions step render resize
 
+
 main =
   withWindow (1920, 1200) (Just "Pong") initGame endGame $
     loop app
 
+
 initGame :: Window -> Game () GameState
 initGame window = do
   (immRenderState, renderCoreState) <- runSiblingGame newImmRenderer newRenderCoreState
@@ -42,6 +45,7 @@ endGame = do
   game <- getGameState
   runSubGame' (deleteImmRenderer $ immRenderState game) (renderCoreState game)
 
+
 step :: Elapsed -> Dt -> [InputEvent] -> Game GameState Bool
 step elapsed dt inputEvents = do
   gs <- getGameState
@@ -61,6 +65,7 @@ processInput window = processKeys window
 
 exitRequested = elem (KeyDown KEY_ESC)
 
+
 render :: Game GameState ()
 render = do
   gameState <- getGameState
@@ -108,6 +113,7 @@ renderGO go = do
       ,vec2 xmax ymax
       ,vec2 xmin ymax)]
 
+
 resize :: WindowEvent -> Game GameState ()
 resize (ResizeEvent w h) =
   let r = fromIntegral w / fromIntegral h