diff options
Diffstat (limited to '')
| -rw-r--r-- | src/Chelleport/Control.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Chelleport/Control.hs b/src/Chelleport/Control.hs index b987564..3873c1e 100644 --- a/src/Chelleport/Control.hs +++ b/src/Chelleport/Control.hs @@ -72,7 +72,7 @@ keyModifier :: SDL.KeyboardEventData -> SDL.KeyModifier keyModifier = SDL.keysymModifier . SDL.keyboardEventKeysym checkKey :: [SDL.KeyboardEventData -> Bool] -> SDL.KeyboardEventData -> Bool -checkKey = (<&&>) +checkKey = foldl (<&&>) (const True) pressed :: SDL.KeyboardEventData -> Bool pressed = (SDL.Pressed ==) . SDL.keyboardEventKeyMotion |