From 6c4ea0fd4831e887103fafe6587e1c6a73914833 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Tue, 7 Feb 2023 22:52:34 +0000
Subject: Avoid repeat for buttons a, b and menu

---
 src/Game.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Game.hs')

diff --git a/src/Game.hs b/src/Game.hs
index 5a974c6..48a8e21 100644
--- a/src/Game.hs
+++ b/src/Game.hs
@@ -120,7 +120,7 @@ gameLoop = do
   let quit = fromMaybe False (isPressed SDL.KeycodeEscape events) || SDL.QuitEvent `elem` events
   unless quit $ do
     -- update controls
-    controls $~ C.update events
+    controls $~ flip C.update events
 
     SDL.rendererRenderTarget renderer $= Just canvas
     SDL.clear renderer
-- 
cgit v1.2.3