fix unexpected eventlessness

This commit is contained in:
nek0 2022-05-13 16:13:12 +02:00
parent 2696dedbb4
commit 9b7b1c6167

View file

@ -120,6 +120,7 @@ withAffection AffectionConfig{..} = do
, deltaTime = dt
}
-- poll events
liftIO SDL.pumpEvents
evs <- preHandleEvents =<< liftIO SDL.pollEvents
-- handle events
handleEvents gameData evs