diff --git a/src/Affection.hs b/src/Affection.hs index 64e8d29..e61cc93 100644 --- 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