diff options
| author | 3gg <3gg@shellblade.net> | 2023-10-04 09:19:29 -0700 |
|---|---|---|
| committer | 3gg <3gg@shellblade.net> | 2023-10-04 09:19:29 -0700 |
| commit | b4321a949f473a5877e0084c6845704a924f07a4 (patch) | |
| tree | 51aa051f208dd3664255690aab9a4d59011aaa31 /Demos/Pong/Main.hs | |
| parent | a812e572bb8951bd5b9ebc575b2805925823c7ea (diff) | |
Fix resize hang.
Diffstat (limited to 'Demos/Pong/Main.hs')
| -rw-r--r-- | Demos/Pong/Main.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/Demos/Pong/Main.hs b/Demos/Pong/Main.hs index 0237a26..26ceefa 100644 --- a/Demos/Pong/Main.hs +++ b/Demos/Pong/Main.hs | |||
| @@ -98,7 +98,6 @@ renderGO go = do | |||
| 98 | ,vec2 xmax ymax | 98 | ,vec2 xmax ymax |
| 99 | ,vec2 xmin ymax)] | 99 | ,vec2 xmin ymax)] |
| 100 | 100 | ||
| 101 | -- TODO: Fix the resize hang. | ||
| 102 | resize :: WindowEvent -> Game GameState () | 101 | resize :: WindowEvent -> Game GameState () |
| 103 | resize (ResizeEvent w h) = | 102 | resize (ResizeEvent w h) = |
| 104 | let r = fromIntegral w / fromIntegral h | 103 | let r = fromIntegral w / fromIntegral h |