diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2023-02-07 22:52:34 +0000 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2023-02-07 22:52:34 +0000 |
| commit | 6c4ea0fd4831e887103fafe6587e1c6a73914833 (patch) | |
| tree | 4d31449ec0066a7c9e36150c0b4ea25e60b23c4f /src/Game.hs | |
| parent | 0fa864f7ffaa1cdb461ea6ef50d63aebb5d20e79 (diff) | |
| download | space-plat-hs-6c4ea0fd4831e887103fafe6587e1c6a73914833.tar.gz space-plat-hs-6c4ea0fd4831e887103fafe6587e1c6a73914833.zip | |
Avoid repeat for buttons a, b and menu
Diffstat (limited to 'src/Game.hs')
| -rw-r--r-- | src/Game.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |