-- Keyboard Callback ----------------------------------------------------------
installKeyboardCallbackGLFW :: IORef GLFWState -> Callbacks -> IO ()
installKeyboardCallbackGLFW ref callbacks =
  whenWindow_ ref $ \glfwWin ->
    GLFW.setKeyCallback glfwWin $ Just (callbackKeyboard ref callbacks)
installKeyboardCallbackGLFW :: IORef GLFWState -> Callbacks -> IO ()
installKeyboardCallbackGLFW ref callbacks =
  whenWindow_ ref $ \glfwWin ->
    GLFW.setKeyCallback glfwWin $ Just (callbackKeyboard ref callbacks)
installKeyboardCallbackGLFW ref callbacks =
  whenWindow_ ref $ \glfwWin ->
    GLFW.setKeyCallback glfwWin $ Just (callbackKeyboard ref callbacks)