aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
author3gg <3gg@shellblade.net>2024-11-18 17:44:18 -0800
committer3gg <3gg@shellblade.net>2024-11-18 17:44:18 -0800
commitf3c8424d0fb9d3b022f6c52fd827256b6403a611 (patch)
tree865de05c9933458185d5c5193a018329d6a7cd61
parentea4100bd02143fea255cc0441cbeeb842796a58a (diff)
Format.
-rw-r--r--Spear/App.hs6
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