exitGLFW :: IORef GLFWState -> IO ()
exitGLFW ref = do
  glfwWin <- ref ^@ glfwWindow
  mapM_ (`GLFW.setWindowShouldClose` True) glfwWin


-- Open Window ----------------------------------------------------------------
-- | Open a new window.
exitGLFW :: IORef GLFWState -> IO ()
exitGLFW ref = do
  glfwWin <- ref ^@ glfwWindow
  mapM_ (`GLFW.setWindowShouldClose` True) glfwWin


-- Open Window ----------------------------------------------------------------
-- | Open a new window.
exitGLFW ref = do
  glfwWin <- ref ^@ glfwWindow
  mapM_ (`GLFW.setWindowShouldClose` True) glfwWin


-- Open Window ----------------------------------------------------------------
-- | Open a new window.