-- | Initial GLFW state.
glfwStateInit :: GLFWState
glfwStateInit =
  GLFWState
    { _display       = return ()
    , _glfwWindow    = Nothing
    }
glfwStateInit :: GLFWState
glfwStateInit =
  GLFWState
    { _display       = return ()
    , _glfwWindow    = Nothing
    }
glfwStateInit =
  GLFWState
    { _display       = return ()
    , _glfwWindow    = Nothing
    }