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
     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