From 34cac097d15cdd7ef0a0de8b9024db9acfe8618d Mon Sep 17 00:00:00 2001
From: 3gg <3gg@shellblade.net>
Date: Mon, 30 Dec 2024 12:48:31 -0800
Subject: Move window setup to App.

---
 Demos/Pong/Main.hs | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'Demos/Pong')

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
-- 
cgit v1.2.3