Check input events once per frame.

1 files changed, 3 insertions, 2 deletions

diff --git a/Spear/App.hs b/Spear/App.hs
index f70dd06..1a0095b 100644
--- a/Spear/App.hs
+++ b/Spear/App.hs
@@ -57,16 +57,17 @@ loop' ::
 loop' window ddt inputTimer elapsed timeBudget app = do
   timer <- gameIO $ tick inputTimer
 
+  inputEvents <- gameIO $ pollInputEvents window
+
   let timeBudgetThisFrame = timeBudget + deltaTime timer
   let steps = timeBudgetThisFrame `div` ddt
 
   continue <- and <$> forM [1..steps] (\i -> do
     let t  = timeDeltaToSec $ elapsed + i * ddt
     let dt = timeDeltaToSec ddt
-    inputEvents <- gameIO $ pollInputEvents window
     stepApp app t dt inputEvents)
 
-  let elapsed' = elapsed + steps * ddt
+  let elapsed'    = elapsed + steps * ddt
   let timeBudget' = timeBudgetThisFrame `mod` ddt
 
   when continue $ do