Move window setup to App.

1 files changed, 4 insertions, 5 deletions

diff --git a/Demos/Pong/Main.hs b/Demos/Pong/Main.hs
index 66fa223..de8e6f2 100644
--- a/Demos/Pong/Main.hs
+++ b/Demos/Pong/Main.hs
@@ -26,14 +26,13 @@ data GameState = GameState
   , world           :: [GameObject]
   }
 
+options = defaultAppOptions { title = "Pong" }
 
-app = App defaultAppOptions step render resize
+app = App options initGame endGame step render resize
 
 
-main =
-  withWindow (1920, 1200) (Just "Pong") initGame endGame $
-    loop app
-
+main :: IO ()
+main = runApp app
 
 initGame :: Window -> Game () GameState
 initGame window = do