-- Mouse Button Callback ------------------------------------------------------
installMouseButtonCallbackGLFW :: IORef GLFWState -> Callbacks -> IO ()
installMouseButtonCallbackGLFW ref callbacks =
  whenWindow_ ref $ \glfwWin ->
    GLFW.setMouseButtonCallback glfwWin $ Just (callbackMouseButton ref callbacks)
installMouseButtonCallbackGLFW :: IORef GLFWState -> Callbacks -> IO ()
installMouseButtonCallbackGLFW ref callbacks =
  whenWindow_ ref $ \glfwWin ->
    GLFW.setMouseButtonCallback glfwWin $ Just (callbackMouseButton ref callbacks)
installMouseButtonCallbackGLFW ref callbacks =
  whenWindow_ ref $ \glfwWin ->
    GLFW.setMouseButtonCallback glfwWin $ Just (callbackMouseButton ref callbacks)