RenderWrapper.hs

{-|
  This module provides a wrapper to use with a given @'FRP.Spice.Game.Game'@'s
  render function.
-}
module FRP.Spice.Engine.RenderWrapper where

--------------------
-- Global Imports --
import Graphics.Rendering.OpenGL
import Graphics.UI.GLFW

----------
-- Code --

{-|
  A function to be ran on a @'FRP.Spice.Game.Game'@'s render function to
  provide a bit of a framework around it.
-}
renderWrapper :: IO () -> IO ()
renderWrapper renderfn = do
  clear [ColorBuffer]

  renderfn

  flush
  swapBuffers