fix unexpected eventlessness

2022-05-13 16:13:12 +02:00 · 2022-05-13 16:13:12 +02:00 · 9b7b1c6167
commit 9b7b1c6167
parent 2696dedbb4
1 changed files with 1 additions and 0 deletions
--- a/src/Affection.hs
+++ b/src/Affection.hs
@ -120,6 +120,7 @@ withAffection AffectionConfig{..} = do
              , deltaTime = dt
              }
            -- poll events
+            liftIO SDL.pumpEvents
            evs <- preHandleEvents =<< liftIO SDL.pollEvents
            -- handle events
            handleEvents gameData evs