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