diff options
author | 3gg <3gg@shellblade.net> | 2024-11-18 17:44:18 -0800 |
---|---|---|
committer | 3gg <3gg@shellblade.net> | 2024-11-18 17:44:18 -0800 |
commit | f3c8424d0fb9d3b022f6c52fd827256b6403a611 (patch) | |
tree | 865de05c9933458185d5c5193a018329d6a7cd61 | |
parent | ea4100bd02143fea255cc0441cbeeb842796a58a (diff) |
Format.
-rw-r--r-- | Spear/App.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Spear/App.hs b/Spear/App.hs index bc4886c..1230a61 100644 --- a/Spear/App.hs +++ b/Spear/App.hs | |||
@@ -84,9 +84,11 @@ loop' window ddt timeBudget inputTimer app = do | |||
84 | stepApp app t dt inputEvents) | 84 | stepApp app t dt inputEvents) |
85 | 85 | ||
86 | -- Variable time step game animation. | 86 | -- Variable time step game animation. |
87 | {-let t = timeDeltaToSec $ runningTime timer | 87 | {- let t = timeDeltaToSec $ runningTime timer |
88 | let dt = timeDeltaToSec $ deltaTime timer | 88 | let dt = timeDeltaToSec $ deltaTime timer |
89 | continue <- stepApp app t dt inputEvents-} | 89 | inputEvents <- gameIO $ pollInputEvents window |
90 | continue <- stepApp app t dt inputEvents | ||
91 | let timeBudgetNextFrame = 0 -- Unused. -} | ||
90 | 92 | ||
91 | -- Process window events. | 93 | -- Process window events. |
92 | resized <- or <$> forM windowEvents (\event -> case event of | 94 | resized <- or <$> forM windowEvents (\event -> case event of |