aboutsummaryrefslogtreecommitdiff
path: root/demos
diff options
context:
space:
mode:
Diffstat (limited to 'demos')
-rw-r--r--demos/pong/Main.hs11
1 files changed, 3 insertions, 8 deletions
diff --git a/demos/pong/Main.hs b/demos/pong/Main.hs
index 8c379ec..e9a6dc1 100644
--- a/demos/pong/Main.hs
+++ b/demos/pong/Main.hs
@@ -18,14 +18,9 @@ data GameState = GameState
18 , world :: [GameObject] 18 , world :: [GameObject]
19 } 19 }
20 20
21main = do 21main = run
22 result <- run 22 $ withWindow (640,480) [] Window (2,0) (Just "Pong") initGame
23 case result of 23 $ loop (Just 30) step
24 Left err -> putStrLn err
25 Right _ -> return ()
26
27run = withWindow (640,480) [] Window (2,0) (Just "Pong") initGame
28 $ loop (Just 30) step
29 24
30initGame wnd = do 25initGame wnd = do
31 gameIO $ do 26 gameIO $ do