lamdu-GLFW-event-trace.diff

lamdu-GLFW-event-trace.diff

diff --git a/src/Graphics/UI/GLFW/Events.hs b/src/Graphics/UI/GLFW/Events.hs
index eb352c2ed..4f3d5b557 100644
--- a/src/Graphics/UI/GLFW/Events.hs
+++ b/src/Graphics/UI/GLFW/Events.hs
@@ -12,6 +12,7 @@ import           Data.IORef.Extended
 import           Data.Typeable (Typeable)
 import           Data.Vector.Vector2 (Vector2(..))
 import qualified Graphics.UI.GLFW as GLFW
+import Debug.Trace
 
 import           Prelude
 
@@ -142,7 +143,7 @@ eventLoop win eventsHandler =
 
         let addEvent event = atomicModifyIORef_ eventsVar (event:)
             addKeyEvent key scanCode keyState modKeys =
-                addEvent $ RawKeyEvent key scanCode keyState modKeys
+                trace ((show key) ++ "\n") $ (addEvent $ RawKeyEvent key scanCode keyState modKeys)
             addMouseButtonEvent button buttonState modKeys =
                 addEvent $ RawMouseButton button buttonState modKeys
             setCallback f cb = f win $ Just $ const cb