From f3c8424d0fb9d3b022f6c52fd827256b6403a611 Mon Sep 17 00:00:00 2001
From: 3gg <3gg@shellblade.net>
Date: Mon, 18 Nov 2024 17:44:18 -0800
Subject: Format.

---
 Spear/App.hs | 6 ++++--
 1 file 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
     stepApp app t dt inputEvents)
 
   -- Variable time step game animation.
-  {-let t  = timeDeltaToSec $ runningTime timer
+  {- let t  = timeDeltaToSec $ runningTime timer
   let dt = timeDeltaToSec $ deltaTime   timer
-  continue <- stepApp app t dt inputEvents-}
+  inputEvents <- gameIO $ pollInputEvents window
+  continue <- stepApp app t dt inputEvents
+  let timeBudgetNextFrame = 0 -- Unused. -}
 
   -- Process window events.
   resized <- or <$> forM windowEvents (\event -> case event of
-- 
cgit v1.2.3