From 9553955a151e369f23dc6fa2f532a82b280879cc Mon Sep 17 00:00:00 2001 From: 3gg <3gg@shellblade.net> Date: Fri, 24 May 2024 10:11:43 -0700 Subject: Remove unnecessary char callback. --- Spear/Window.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/Spear/Window.hs b/Spear/Window.hs index aafcb59..453f67d 100644 --- a/Spear/Window.hs +++ b/Spear/Window.hs @@ -130,7 +130,6 @@ setup (w, h) windowTitle = do GLFW.setWindowCloseCallback window . Just $ onWindowClose closeRequest GLFW.setWindowSizeCallback window . Just $ onResize windowEvents GLFW.setKeyCallback window . Just $ onKey inputEvents - GLFW.setCharCallback window . Just $ onChar inputEvents GLFW.setMouseButtonCallback window . Just $ onMouseButton inputEvents GLFW.setCursorPosCallback window . Just $ onMouseMove mousePos inputEvents @@ -185,9 +184,6 @@ onKey events window key _ GLFW.KeyState'Pressed _ = addEvent events $ KeyDown onKey events window key _ GLFW.KeyState'Released _ = addEvent events $ KeyUp (fromGLFWkey key) onKey events window key _ GLFW.KeyState'Repeating _ = return () -onChar :: MVar [InputEvent] -> GLFW.CharCallback -onChar events window char = addEvent events $ KeyDown . fromGLFWkey . read $ [char] - onMouseButton :: MVar [InputEvent] -> GLFW.MouseButtonCallback onMouseButton events window button GLFW.MouseButtonState'Pressed _ = addEvent events $ MouseDown (fromGLFWbutton button) onMouseButton events window button GLFW.MouseButtonState'Released _ = addEvent events $ MouseUp (fromGLFWbutton button) -- cgit v1.2.3