From 9b7b1c6167b4fa516b91759ca86139ede07f231d Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 13 May 2022 16:13:12 +0200 Subject: [PATCH] fix unexpected eventlessness --- src/Affection.hs | 1 + 1 file changed, 1 insertion(+) 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