charCallback            :: TQueue Event -> GLFW.Window -> Char                                                             -> IO ()

errorCallback           tc e s            = atomically $ writeTQueue tc $ EventError           e s
charCallback            :: TQueue Event -> GLFW.Window -> Char                                                             -> IO ()
errorCallback           tc e s            = atomically $ writeTQueue tc $ EventError           e s
errorCallback           tc e s            = atomically $ writeTQueue tc $ EventError           e s