From fc2a09facce2fe6d06769712ea992f99bf15c8e2 Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Sun, 29 Dec 2024 19:03:22 +0530 Subject: Make backspace delete a single character in search + split up key input action --- src/Chelleport/Control.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Chelleport/Control.hs') 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 -- cgit v1.3.1