Remove unnecessary char callback.

1 files changed, 0 insertions, 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)