diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-29 19:03:22 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-29 19:03:35 +0530 |
| commit | fc2a09facce2fe6d06769712ea992f99bf15c8e2 (patch) | |
| tree | d58a5b11207b88ca79d62a92bf47d8781d20d4e1 /src/Chelleport/Control.hs | |
| parent | c1e05401d5c3cf90440e62a3423d2b52cfc46999 (diff) | |
| download | chelleport-fc2a09facce2fe6d06769712ea992f99bf15c8e2.tar.gz chelleport-fc2a09facce2fe6d06769712ea992f99bf15c8e2.zip | |
Make backspace delete a single character in search + split up key input action
Diffstat (limited to 'src/Chelleport/Control.hs')
| -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 |