diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-24 22:28:38 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-24 22:42:34 +0530 |
| commit | 459488a2e777380fcb65e3b4dd355fe525ff77ca (patch) | |
| tree | bd21b71b73fc627d37e91e7800dd514706e49942 /src/Chelleport/Control.hs | |
| parent | 70e3920556496e5fecb5fedddf1067b2522fcac7 (diff) | |
| download | chelleport-459488a2e777380fcb65e3b4dd355fe525ff77ca.tar.gz chelleport-459488a2e777380fcb65e3b4dd355fe525ff77ca.zip | |
Add search mode for text based searching with ocr
Diffstat (limited to 'src/Chelleport/Control.hs')
| -rw-r--r-- | src/Chelleport/Control.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Chelleport/Control.hs b/src/Chelleport/Control.hs index 80be6f8..f7a9c66 100644 --- a/src/Chelleport/Control.hs +++ b/src/Chelleport/Control.hs @@ -64,10 +64,10 @@ instance (MonadIO m) => MonadControl (AppM m) where X11.sync display False isKeyPressed :: SDL.KeyboardEventData -> Bool -isKeyPressed = (== SDL.Pressed) . SDL.keyboardEventKeyMotion +isKeyPressed = (SDL.Pressed ==) . SDL.keyboardEventKeyMotion isKeyRelease :: SDL.KeyboardEventData -> Bool -isKeyRelease = (== SDL.Released) . SDL.keyboardEventKeyMotion +isKeyRelease = (SDL.Released ==) . SDL.keyboardEventKeyMotion eventToKeycode :: SDL.KeyboardEventData -> SDL.Keycode eventToKeycode = SDL.keysymKeycode . SDL.keyboardEventKeysym |