-- This file was automatically generated.
{-# LANGUAGE ScopedTypeVariables, PatternSynonyms #-}
module Graphics.GL.Raw.Extension.SGIX.FlushRaster (
  -- * Extension Support
    gl_SGIX_flush_raster

  -- * GL_SGIX_flush_raster
  , glFlushRasterSGIX
) where

import Control.Monad.IO.Class
import Data.Set
import Foreign.Ptr
import Graphics.GL.Raw.Internal.FFI
import Graphics.GL.Raw.Internal.Proc
import System.IO.Unsafe

gl_SGIX_flush_raster :: Bool
gl_SGIX_flush_raster = member "GL_SGIX_flush_raster" extensions

glFlushRasterSGIX :: MonadIO m => m ()
glFlushRasterSGIX = ffiIOV glFlushRasterSGIXFunPtr

glFlushRasterSGIXFunPtr :: FunPtr (IO ())
glFlushRasterSGIXFunPtr = unsafePerformIO (getProcAddress "glFlushRasterSGIX")

{-# NOINLINE glFlushRasterSGIXFunPtr #-}