callbackDisplay :: IORef GLFWState -> Callbacks -> IO ()
callbackDisplay ref callbacks = do
  GL.clear [GL.ColorBuffer, GL.DepthBuffer]
  GL.color $ GL.Color4 0 0 0 (1 :: GL.GLfloat)

  displayCallback callbacks ref


-- Focus Callback -------------------------------------------------------------
-- | Callback for when the user is focus/defocused on the window.
--   Used to control pause/resume.
callbackDisplay :: IORef GLFWState -> Callbacks -> IO ()
callbackDisplay ref callbacks = do
  GL.clear [GL.ColorBuffer, GL.DepthBuffer]
  GL.color $ GL.Color4 0 0 0 (1 :: GL.GLfloat)

  displayCallback callbacks ref


-- Focus Callback -------------------------------------------------------------
-- | Callback for when the user is focus/defocused on the window.
--   Used to control pause/resume.
callbackDisplay ref callbacks = do
  GL.clear [GL.ColorBuffer, GL.DepthBuffer]
  GL.color $ GL.Color4 0 0 0 (1 :: GL.GLfloat)

  displayCallback callbacks ref


-- Focus Callback -------------------------------------------------------------
-- | Callback for when the user is focus/defocused on the window.
--   Used to control pause/resume.