{-# OPTIONS_HADDOCK hide #-}
module Graphics.GL.ExtensionPredicates where
import Control.Monad.IO.Class ( MonadIO(..) )
import Data.Set ( member )
import Graphics.GL.GetProcAddress ( getExtensions, extensions )
glGetThreeDFXMultisample :: MonadIO m => m Bool
glGetThreeDFXMultisample :: m Bool
glGetThreeDFXMultisample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_3DFX_multisample")
gl_3DFX_multisample :: Bool
gl_3DFX_multisample :: Bool
gl_3DFX_multisample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_3DFX_multisample" Set String
extensions
{-# NOINLINE gl_3DFX_multisample #-}
glGetThreeDFXTbuffer :: MonadIO m => m Bool
glGetThreeDFXTbuffer :: m Bool
glGetThreeDFXTbuffer = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_3DFX_tbuffer")
gl_3DFX_tbuffer :: Bool
gl_3DFX_tbuffer :: Bool
gl_3DFX_tbuffer = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_3DFX_tbuffer" Set String
extensions
{-# NOINLINE gl_3DFX_tbuffer #-}
glGetThreeDFXTextureCompressionFXT1 :: MonadIO m => m Bool
glGetThreeDFXTextureCompressionFXT1 :: m Bool
glGetThreeDFXTextureCompressionFXT1 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_3DFX_texture_compression_FXT1")
gl_3DFX_texture_compression_FXT1 :: Bool
gl_3DFX_texture_compression_FXT1 :: Bool
gl_3DFX_texture_compression_FXT1 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_3DFX_texture_compression_FXT1" Set String
extensions
{-# NOINLINE gl_3DFX_texture_compression_FXT1 #-}
glGetAMDBlendMinmaxFactor :: MonadIO m => m Bool
glGetAMDBlendMinmaxFactor :: m Bool
glGetAMDBlendMinmaxFactor = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_blend_minmax_factor")
gl_AMD_blend_minmax_factor :: Bool
gl_AMD_blend_minmax_factor :: Bool
gl_AMD_blend_minmax_factor = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_blend_minmax_factor" Set String
extensions
{-# NOINLINE gl_AMD_blend_minmax_factor #-}
glGetAMDDebugOutput :: MonadIO m => m Bool
glGetAMDDebugOutput :: m Bool
glGetAMDDebugOutput = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_debug_output")
gl_AMD_debug_output :: Bool
gl_AMD_debug_output :: Bool
gl_AMD_debug_output = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_debug_output" Set String
extensions
{-# NOINLINE gl_AMD_debug_output #-}
glGetAMDDepthClampSeparate :: MonadIO m => m Bool
glGetAMDDepthClampSeparate :: m Bool
glGetAMDDepthClampSeparate = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_depth_clamp_separate")
gl_AMD_depth_clamp_separate :: Bool
gl_AMD_depth_clamp_separate :: Bool
gl_AMD_depth_clamp_separate = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_depth_clamp_separate" Set String
extensions
{-# NOINLINE gl_AMD_depth_clamp_separate #-}
glGetAMDDrawBuffersBlend :: MonadIO m => m Bool
glGetAMDDrawBuffersBlend :: m Bool
glGetAMDDrawBuffersBlend = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_draw_buffers_blend")
gl_AMD_draw_buffers_blend :: Bool
gl_AMD_draw_buffers_blend :: Bool
gl_AMD_draw_buffers_blend = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_draw_buffers_blend" Set String
extensions
{-# NOINLINE gl_AMD_draw_buffers_blend #-}
glGetAMDFramebufferMultisampleAdvanced :: MonadIO m => m Bool
glGetAMDFramebufferMultisampleAdvanced :: m Bool
glGetAMDFramebufferMultisampleAdvanced = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_framebuffer_multisample_advanced")
gl_AMD_framebuffer_multisample_advanced :: Bool
gl_AMD_framebuffer_multisample_advanced :: Bool
gl_AMD_framebuffer_multisample_advanced = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_framebuffer_multisample_advanced" Set String
extensions
{-# NOINLINE gl_AMD_framebuffer_multisample_advanced #-}
glGetAMDFramebufferSamplePositions :: MonadIO m => m Bool
glGetAMDFramebufferSamplePositions :: m Bool
glGetAMDFramebufferSamplePositions = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_framebuffer_sample_positions")
gl_AMD_framebuffer_sample_positions :: Bool
gl_AMD_framebuffer_sample_positions :: Bool
gl_AMD_framebuffer_sample_positions = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_framebuffer_sample_positions" Set String
extensions
{-# NOINLINE gl_AMD_framebuffer_sample_positions #-}
glGetAMDGPUShaderHalfFloat :: MonadIO m => m Bool
glGetAMDGPUShaderHalfFloat :: m Bool
glGetAMDGPUShaderHalfFloat = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_gpu_shader_half_float")
gl_AMD_gpu_shader_half_float :: Bool
gl_AMD_gpu_shader_half_float :: Bool
gl_AMD_gpu_shader_half_float = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_gpu_shader_half_float" Set String
extensions
{-# NOINLINE gl_AMD_gpu_shader_half_float #-}
glGetAMDGPUShaderInt64 :: MonadIO m => m Bool
glGetAMDGPUShaderInt64 :: m Bool
glGetAMDGPUShaderInt64 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_gpu_shader_int64")
gl_AMD_gpu_shader_int64 :: Bool
gl_AMD_gpu_shader_int64 :: Bool
gl_AMD_gpu_shader_int64 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_gpu_shader_int64" Set String
extensions
{-# NOINLINE gl_AMD_gpu_shader_int64 #-}
glGetAMDInterleavedElements :: MonadIO m => m Bool
glGetAMDInterleavedElements :: m Bool
glGetAMDInterleavedElements = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_interleaved_elements")
gl_AMD_interleaved_elements :: Bool
gl_AMD_interleaved_elements :: Bool
gl_AMD_interleaved_elements = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_interleaved_elements" Set String
extensions
{-# NOINLINE gl_AMD_interleaved_elements #-}
glGetAMDMultiDrawIndirect :: MonadIO m => m Bool
glGetAMDMultiDrawIndirect :: m Bool
glGetAMDMultiDrawIndirect = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_multi_draw_indirect")
gl_AMD_multi_draw_indirect :: Bool
gl_AMD_multi_draw_indirect :: Bool
gl_AMD_multi_draw_indirect = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_multi_draw_indirect" Set String
extensions
{-# NOINLINE gl_AMD_multi_draw_indirect #-}
glGetAMDNameGenDelete :: MonadIO m => m Bool
glGetAMDNameGenDelete :: m Bool
glGetAMDNameGenDelete = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_name_gen_delete")
gl_AMD_name_gen_delete :: Bool
gl_AMD_name_gen_delete :: Bool
gl_AMD_name_gen_delete = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_name_gen_delete" Set String
extensions
{-# NOINLINE gl_AMD_name_gen_delete #-}
glGetAMDOcclusionQueryEvent :: MonadIO m => m Bool
glGetAMDOcclusionQueryEvent :: m Bool
glGetAMDOcclusionQueryEvent = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_occlusion_query_event")
gl_AMD_occlusion_query_event :: Bool
gl_AMD_occlusion_query_event :: Bool
gl_AMD_occlusion_query_event = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_occlusion_query_event" Set String
extensions
{-# NOINLINE gl_AMD_occlusion_query_event #-}
glGetAMDPerformanceMonitor :: MonadIO m => m Bool
glGetAMDPerformanceMonitor :: m Bool
glGetAMDPerformanceMonitor = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_performance_monitor")
gl_AMD_performance_monitor :: Bool
gl_AMD_performance_monitor :: Bool
gl_AMD_performance_monitor = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_performance_monitor" Set String
extensions
{-# NOINLINE gl_AMD_performance_monitor #-}
glGetAMDPinnedMemory :: MonadIO m => m Bool
glGetAMDPinnedMemory :: m Bool
glGetAMDPinnedMemory = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_pinned_memory")
gl_AMD_pinned_memory :: Bool
gl_AMD_pinned_memory :: Bool
gl_AMD_pinned_memory = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_pinned_memory" Set String
extensions
{-# NOINLINE gl_AMD_pinned_memory #-}
glGetAMDQueryBufferObject :: MonadIO m => m Bool
glGetAMDQueryBufferObject :: m Bool
glGetAMDQueryBufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_query_buffer_object")
gl_AMD_query_buffer_object :: Bool
gl_AMD_query_buffer_object :: Bool
gl_AMD_query_buffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_query_buffer_object" Set String
extensions
{-# NOINLINE gl_AMD_query_buffer_object #-}
glGetAMDSamplePositions :: MonadIO m => m Bool
glGetAMDSamplePositions :: m Bool
glGetAMDSamplePositions = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_sample_positions")
gl_AMD_sample_positions :: Bool
gl_AMD_sample_positions :: Bool
gl_AMD_sample_positions = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_sample_positions" Set String
extensions
{-# NOINLINE gl_AMD_sample_positions #-}
glGetAMDSeamlessCubemapPerTexture :: MonadIO m => m Bool
glGetAMDSeamlessCubemapPerTexture :: m Bool
glGetAMDSeamlessCubemapPerTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_seamless_cubemap_per_texture")
gl_AMD_seamless_cubemap_per_texture :: Bool
gl_AMD_seamless_cubemap_per_texture :: Bool
gl_AMD_seamless_cubemap_per_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_seamless_cubemap_per_texture" Set String
extensions
{-# NOINLINE gl_AMD_seamless_cubemap_per_texture #-}
glGetAMDSparseTexture :: MonadIO m => m Bool
glGetAMDSparseTexture :: m Bool
glGetAMDSparseTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_sparse_texture")
gl_AMD_sparse_texture :: Bool
gl_AMD_sparse_texture :: Bool
gl_AMD_sparse_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_sparse_texture" Set String
extensions
{-# NOINLINE gl_AMD_sparse_texture #-}
glGetAMDStencilOperationExtended :: MonadIO m => m Bool
glGetAMDStencilOperationExtended :: m Bool
glGetAMDStencilOperationExtended = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_stencil_operation_extended")
gl_AMD_stencil_operation_extended :: Bool
gl_AMD_stencil_operation_extended :: Bool
gl_AMD_stencil_operation_extended = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_stencil_operation_extended" Set String
extensions
{-# NOINLINE gl_AMD_stencil_operation_extended #-}
glGetAMDTransformFeedback4 :: MonadIO m => m Bool
glGetAMDTransformFeedback4 :: m Bool
glGetAMDTransformFeedback4 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_transform_feedback4")
gl_AMD_transform_feedback4 :: Bool
gl_AMD_transform_feedback4 :: Bool
gl_AMD_transform_feedback4 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_transform_feedback4" Set String
extensions
{-# NOINLINE gl_AMD_transform_feedback4 #-}
glGetAMDVertexShaderTessellator :: MonadIO m => m Bool
glGetAMDVertexShaderTessellator :: m Bool
glGetAMDVertexShaderTessellator = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_vertex_shader_tessellator")
gl_AMD_vertex_shader_tessellator :: Bool
gl_AMD_vertex_shader_tessellator :: Bool
gl_AMD_vertex_shader_tessellator = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_AMD_vertex_shader_tessellator" Set String
extensions
{-# NOINLINE gl_AMD_vertex_shader_tessellator #-}
glGetAPPLEAuxDepthStencil :: MonadIO m => m Bool
glGetAPPLEAuxDepthStencil :: m Bool
glGetAPPLEAuxDepthStencil = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_aux_depth_stencil")
gl_APPLE_aux_depth_stencil :: Bool
gl_APPLE_aux_depth_stencil :: Bool
gl_APPLE_aux_depth_stencil = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_aux_depth_stencil" Set String
extensions
{-# NOINLINE gl_APPLE_aux_depth_stencil #-}
glGetAPPLEClientStorage :: MonadIO m => m Bool
glGetAPPLEClientStorage :: m Bool
glGetAPPLEClientStorage = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_client_storage")
gl_APPLE_client_storage :: Bool
gl_APPLE_client_storage :: Bool
gl_APPLE_client_storage = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_client_storage" Set String
extensions
{-# NOINLINE gl_APPLE_client_storage #-}
glGetAPPLEElementArray :: MonadIO m => m Bool
glGetAPPLEElementArray :: m Bool
glGetAPPLEElementArray = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_element_array")
gl_APPLE_element_array :: Bool
gl_APPLE_element_array :: Bool
gl_APPLE_element_array = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_element_array" Set String
extensions
{-# NOINLINE gl_APPLE_element_array #-}
glGetAPPLEFence :: MonadIO m => m Bool
glGetAPPLEFence :: m Bool
glGetAPPLEFence = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_fence")
gl_APPLE_fence :: Bool
gl_APPLE_fence :: Bool
gl_APPLE_fence = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_fence" Set String
extensions
{-# NOINLINE gl_APPLE_fence #-}
glGetAPPLEFloatPixels :: MonadIO m => m Bool
glGetAPPLEFloatPixels :: m Bool
glGetAPPLEFloatPixels = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_float_pixels")
gl_APPLE_float_pixels :: Bool
gl_APPLE_float_pixels :: Bool
gl_APPLE_float_pixels = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_float_pixels" Set String
extensions
{-# NOINLINE gl_APPLE_float_pixels #-}
glGetAPPLEFlushBufferRange :: MonadIO m => m Bool
glGetAPPLEFlushBufferRange :: m Bool
glGetAPPLEFlushBufferRange = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_flush_buffer_range")
gl_APPLE_flush_buffer_range :: Bool
gl_APPLE_flush_buffer_range :: Bool
gl_APPLE_flush_buffer_range = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_flush_buffer_range" Set String
extensions
{-# NOINLINE gl_APPLE_flush_buffer_range #-}
glGetAPPLEObjectPurgeable :: MonadIO m => m Bool
glGetAPPLEObjectPurgeable :: m Bool
glGetAPPLEObjectPurgeable = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_object_purgeable")
gl_APPLE_object_purgeable :: Bool
gl_APPLE_object_purgeable :: Bool
gl_APPLE_object_purgeable = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_object_purgeable" Set String
extensions
{-# NOINLINE gl_APPLE_object_purgeable #-}
glGetAPPLERGB422 :: MonadIO m => m Bool
glGetAPPLERGB422 :: m Bool
glGetAPPLERGB422 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_rgb_422")
gl_APPLE_rgb_422 :: Bool
gl_APPLE_rgb_422 :: Bool
gl_APPLE_rgb_422 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_rgb_422" Set String
extensions
{-# NOINLINE gl_APPLE_rgb_422 #-}
glGetAPPLERowBytes :: MonadIO m => m Bool
glGetAPPLERowBytes :: m Bool
glGetAPPLERowBytes = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_row_bytes")
gl_APPLE_row_bytes :: Bool
gl_APPLE_row_bytes :: Bool
gl_APPLE_row_bytes = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_row_bytes" Set String
extensions
{-# NOINLINE gl_APPLE_row_bytes #-}
glGetAPPLESpecularVector :: MonadIO m => m Bool
glGetAPPLESpecularVector :: m Bool
glGetAPPLESpecularVector = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_specular_vector")
gl_APPLE_specular_vector :: Bool
gl_APPLE_specular_vector :: Bool
gl_APPLE_specular_vector = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_specular_vector" Set String
extensions
{-# NOINLINE gl_APPLE_specular_vector #-}
glGetAPPLETextureRange :: MonadIO m => m Bool
glGetAPPLETextureRange :: m Bool
glGetAPPLETextureRange = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_texture_range")
gl_APPLE_texture_range :: Bool
gl_APPLE_texture_range :: Bool
gl_APPLE_texture_range = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_texture_range" Set String
extensions
{-# NOINLINE gl_APPLE_texture_range #-}
glGetAPPLETransformHint :: MonadIO m => m Bool
glGetAPPLETransformHint :: m Bool
glGetAPPLETransformHint = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_transform_hint")
gl_APPLE_transform_hint :: Bool
gl_APPLE_transform_hint :: Bool
gl_APPLE_transform_hint = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_transform_hint" Set String
extensions
{-# NOINLINE gl_APPLE_transform_hint #-}
glGetAPPLEVertexArrayObject :: MonadIO m => m Bool
glGetAPPLEVertexArrayObject :: m Bool
glGetAPPLEVertexArrayObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_vertex_array_object")
gl_APPLE_vertex_array_object :: Bool
gl_APPLE_vertex_array_object :: Bool
gl_APPLE_vertex_array_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_vertex_array_object" Set String
extensions
{-# NOINLINE gl_APPLE_vertex_array_object #-}
glGetAPPLEVertexArrayRange :: MonadIO m => m Bool
glGetAPPLEVertexArrayRange :: m Bool
glGetAPPLEVertexArrayRange = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_vertex_array_range")
gl_APPLE_vertex_array_range :: Bool
gl_APPLE_vertex_array_range :: Bool
gl_APPLE_vertex_array_range = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_vertex_array_range" Set String
extensions
{-# NOINLINE gl_APPLE_vertex_array_range #-}
glGetAPPLEVertexProgramEvaluators :: MonadIO m => m Bool
glGetAPPLEVertexProgramEvaluators :: m Bool
glGetAPPLEVertexProgramEvaluators = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_vertex_program_evaluators")
gl_APPLE_vertex_program_evaluators :: Bool
gl_APPLE_vertex_program_evaluators :: Bool
gl_APPLE_vertex_program_evaluators = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_vertex_program_evaluators" Set String
extensions
{-# NOINLINE gl_APPLE_vertex_program_evaluators #-}
glGetAPPLEYCbCr422 :: MonadIO m => m Bool
glGetAPPLEYCbCr422 :: m Bool
glGetAPPLEYCbCr422 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_ycbcr_422")
gl_APPLE_ycbcr_422 :: Bool
gl_APPLE_ycbcr_422 :: Bool
gl_APPLE_ycbcr_422 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_APPLE_ycbcr_422" Set String
extensions
{-# NOINLINE gl_APPLE_ycbcr_422 #-}
glGetARBES2Compatibility :: MonadIO m => m Bool
glGetARBES2Compatibility :: m Bool
glGetARBES2Compatibility = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_ES2_compatibility")
gl_ARB_ES2_compatibility :: Bool
gl_ARB_ES2_compatibility :: Bool
gl_ARB_ES2_compatibility = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_ES2_compatibility" Set String
extensions
{-# NOINLINE gl_ARB_ES2_compatibility #-}
glGetARBES31Compatibility :: MonadIO m => m Bool
glGetARBES31Compatibility :: m Bool
glGetARBES31Compatibility = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_ES3_1_compatibility")
gl_ARB_ES3_1_compatibility :: Bool
gl_ARB_ES3_1_compatibility :: Bool
gl_ARB_ES3_1_compatibility = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_ES3_1_compatibility" Set String
extensions
{-# NOINLINE gl_ARB_ES3_1_compatibility #-}
glGetARBES32Compatibility :: MonadIO m => m Bool
glGetARBES32Compatibility :: m Bool
glGetARBES32Compatibility = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_ES3_2_compatibility")
gl_ARB_ES3_2_compatibility :: Bool
gl_ARB_ES3_2_compatibility :: Bool
gl_ARB_ES3_2_compatibility = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_ES3_2_compatibility" Set String
extensions
{-# NOINLINE gl_ARB_ES3_2_compatibility #-}
glGetARBES3Compatibility :: MonadIO m => m Bool
glGetARBES3Compatibility :: m Bool
glGetARBES3Compatibility = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_ES3_compatibility")
gl_ARB_ES3_compatibility :: Bool
gl_ARB_ES3_compatibility :: Bool
gl_ARB_ES3_compatibility = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_ES3_compatibility" Set String
extensions
{-# NOINLINE gl_ARB_ES3_compatibility #-}
glGetARBBaseInstance :: MonadIO m => m Bool
glGetARBBaseInstance :: m Bool
glGetARBBaseInstance = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_base_instance")
gl_ARB_base_instance :: Bool
gl_ARB_base_instance :: Bool
gl_ARB_base_instance = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_base_instance" Set String
extensions
{-# NOINLINE gl_ARB_base_instance #-}
glGetARBBindlessTexture :: MonadIO m => m Bool
glGetARBBindlessTexture :: m Bool
glGetARBBindlessTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_bindless_texture")
gl_ARB_bindless_texture :: Bool
gl_ARB_bindless_texture :: Bool
gl_ARB_bindless_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_bindless_texture" Set String
extensions
{-# NOINLINE gl_ARB_bindless_texture #-}
glGetARBBlendFuncExtended :: MonadIO m => m Bool
glGetARBBlendFuncExtended :: m Bool
glGetARBBlendFuncExtended = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_blend_func_extended")
gl_ARB_blend_func_extended :: Bool
gl_ARB_blend_func_extended :: Bool
gl_ARB_blend_func_extended = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_blend_func_extended" Set String
extensions
{-# NOINLINE gl_ARB_blend_func_extended #-}
glGetARBBufferStorage :: MonadIO m => m Bool
glGetARBBufferStorage :: m Bool
glGetARBBufferStorage = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_buffer_storage")
gl_ARB_buffer_storage :: Bool
gl_ARB_buffer_storage :: Bool
gl_ARB_buffer_storage = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_buffer_storage" Set String
extensions
{-# NOINLINE gl_ARB_buffer_storage #-}
glGetARBCLEvent :: MonadIO m => m Bool
glGetARBCLEvent :: m Bool
glGetARBCLEvent = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_cl_event")
gl_ARB_cl_event :: Bool
gl_ARB_cl_event :: Bool
gl_ARB_cl_event = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_cl_event" Set String
extensions
{-# NOINLINE gl_ARB_cl_event #-}
glGetARBClearBufferObject :: MonadIO m => m Bool
glGetARBClearBufferObject :: m Bool
glGetARBClearBufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_clear_buffer_object")
gl_ARB_clear_buffer_object :: Bool
gl_ARB_clear_buffer_object :: Bool
gl_ARB_clear_buffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_clear_buffer_object" Set String
extensions
{-# NOINLINE gl_ARB_clear_buffer_object #-}
glGetARBClearTexture :: MonadIO m => m Bool
glGetARBClearTexture :: m Bool
glGetARBClearTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_clear_texture")
gl_ARB_clear_texture :: Bool
gl_ARB_clear_texture :: Bool
gl_ARB_clear_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_clear_texture" Set String
extensions
{-# NOINLINE gl_ARB_clear_texture #-}
glGetARBClipControl :: MonadIO m => m Bool
glGetARBClipControl :: m Bool
glGetARBClipControl = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_clip_control")
gl_ARB_clip_control :: Bool
gl_ARB_clip_control :: Bool
gl_ARB_clip_control = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_clip_control" Set String
extensions
{-# NOINLINE gl_ARB_clip_control #-}
glGetARBColorBufferFloat :: MonadIO m => m Bool
glGetARBColorBufferFloat :: m Bool
glGetARBColorBufferFloat = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_color_buffer_float")
gl_ARB_color_buffer_float :: Bool
gl_ARB_color_buffer_float :: Bool
gl_ARB_color_buffer_float = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_color_buffer_float" Set String
extensions
{-# NOINLINE gl_ARB_color_buffer_float #-}
glGetARBCompressedTexturePixelStorage :: MonadIO m => m Bool
glGetARBCompressedTexturePixelStorage :: m Bool
glGetARBCompressedTexturePixelStorage = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_compressed_texture_pixel_storage")
gl_ARB_compressed_texture_pixel_storage :: Bool
gl_ARB_compressed_texture_pixel_storage :: Bool
gl_ARB_compressed_texture_pixel_storage = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_compressed_texture_pixel_storage" Set String
extensions
{-# NOINLINE gl_ARB_compressed_texture_pixel_storage #-}
glGetARBComputeShader :: MonadIO m => m Bool
glGetARBComputeShader :: m Bool
glGetARBComputeShader = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_compute_shader")
gl_ARB_compute_shader :: Bool
gl_ARB_compute_shader :: Bool
gl_ARB_compute_shader = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_compute_shader" Set String
extensions
{-# NOINLINE gl_ARB_compute_shader #-}
glGetARBComputeVariableGroupSize :: MonadIO m => m Bool
glGetARBComputeVariableGroupSize :: m Bool
glGetARBComputeVariableGroupSize = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_compute_variable_group_size")
gl_ARB_compute_variable_group_size :: Bool
gl_ARB_compute_variable_group_size :: Bool
gl_ARB_compute_variable_group_size = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_compute_variable_group_size" Set String
extensions
{-# NOINLINE gl_ARB_compute_variable_group_size #-}
glGetARBConditionalRenderInverted :: MonadIO m => m Bool
glGetARBConditionalRenderInverted :: m Bool
glGetARBConditionalRenderInverted = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_conditional_render_inverted")
gl_ARB_conditional_render_inverted :: Bool
gl_ARB_conditional_render_inverted :: Bool
gl_ARB_conditional_render_inverted = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_conditional_render_inverted" Set String
extensions
{-# NOINLINE gl_ARB_conditional_render_inverted #-}
glGetARBCopyBuffer :: MonadIO m => m Bool
glGetARBCopyBuffer :: m Bool
glGetARBCopyBuffer = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_copy_buffer")
gl_ARB_copy_buffer :: Bool
gl_ARB_copy_buffer :: Bool
gl_ARB_copy_buffer = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_copy_buffer" Set String
extensions
{-# NOINLINE gl_ARB_copy_buffer #-}
glGetARBCopyImage :: MonadIO m => m Bool
glGetARBCopyImage :: m Bool
glGetARBCopyImage = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_copy_image")
gl_ARB_copy_image :: Bool
gl_ARB_copy_image :: Bool
gl_ARB_copy_image = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_copy_image" Set String
extensions
{-# NOINLINE gl_ARB_copy_image #-}
glGetARBCullDistance :: MonadIO m => m Bool
glGetARBCullDistance :: m Bool
glGetARBCullDistance = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_cull_distance")
gl_ARB_cull_distance :: Bool
gl_ARB_cull_distance :: Bool
gl_ARB_cull_distance = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_cull_distance" Set String
extensions
{-# NOINLINE gl_ARB_cull_distance #-}
glGetARBDebugOutput :: MonadIO m => m Bool
glGetARBDebugOutput :: m Bool
glGetARBDebugOutput = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_debug_output")
gl_ARB_debug_output :: Bool
gl_ARB_debug_output :: Bool
gl_ARB_debug_output = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_debug_output" Set String
extensions
{-# NOINLINE gl_ARB_debug_output #-}
glGetARBDepthBufferFloat :: MonadIO m => m Bool
glGetARBDepthBufferFloat :: m Bool
glGetARBDepthBufferFloat = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_depth_buffer_float")
gl_ARB_depth_buffer_float :: Bool
gl_ARB_depth_buffer_float :: Bool
gl_ARB_depth_buffer_float = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_depth_buffer_float" Set String
extensions
{-# NOINLINE gl_ARB_depth_buffer_float #-}
glGetARBDepthClamp :: MonadIO m => m Bool
glGetARBDepthClamp :: m Bool
glGetARBDepthClamp = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_depth_clamp")
gl_ARB_depth_clamp :: Bool
gl_ARB_depth_clamp :: Bool
gl_ARB_depth_clamp = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_depth_clamp" Set String
extensions
{-# NOINLINE gl_ARB_depth_clamp #-}
glGetARBDepthTexture :: MonadIO m => m Bool
glGetARBDepthTexture :: m Bool
glGetARBDepthTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_depth_texture")
gl_ARB_depth_texture :: Bool
gl_ARB_depth_texture :: Bool
gl_ARB_depth_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_depth_texture" Set String
extensions
{-# NOINLINE gl_ARB_depth_texture #-}
glGetARBDirectStateAccess :: MonadIO m => m Bool
glGetARBDirectStateAccess :: m Bool
glGetARBDirectStateAccess = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_direct_state_access")
gl_ARB_direct_state_access :: Bool
gl_ARB_direct_state_access :: Bool
gl_ARB_direct_state_access = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_direct_state_access" Set String
extensions
{-# NOINLINE gl_ARB_direct_state_access #-}
glGetARBDrawBuffers :: MonadIO m => m Bool
glGetARBDrawBuffers :: m Bool
glGetARBDrawBuffers = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_draw_buffers")
gl_ARB_draw_buffers :: Bool
gl_ARB_draw_buffers :: Bool
gl_ARB_draw_buffers = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_draw_buffers" Set String
extensions
{-# NOINLINE gl_ARB_draw_buffers #-}
glGetARBDrawBuffersBlend :: MonadIO m => m Bool
glGetARBDrawBuffersBlend :: m Bool
glGetARBDrawBuffersBlend = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_draw_buffers_blend")
gl_ARB_draw_buffers_blend :: Bool
gl_ARB_draw_buffers_blend :: Bool
gl_ARB_draw_buffers_blend = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_draw_buffers_blend" Set String
extensions
{-# NOINLINE gl_ARB_draw_buffers_blend #-}
glGetARBDrawElementsBaseVertex :: MonadIO m => m Bool
glGetARBDrawElementsBaseVertex :: m Bool
glGetARBDrawElementsBaseVertex = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_draw_elements_base_vertex")
gl_ARB_draw_elements_base_vertex :: Bool
gl_ARB_draw_elements_base_vertex :: Bool
gl_ARB_draw_elements_base_vertex = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_draw_elements_base_vertex" Set String
extensions
{-# NOINLINE gl_ARB_draw_elements_base_vertex #-}
glGetARBDrawIndirect :: MonadIO m => m Bool
glGetARBDrawIndirect :: m Bool
glGetARBDrawIndirect = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_draw_indirect")
gl_ARB_draw_indirect :: Bool
gl_ARB_draw_indirect :: Bool
gl_ARB_draw_indirect = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_draw_indirect" Set String
extensions
{-# NOINLINE gl_ARB_draw_indirect #-}
glGetARBDrawInstanced :: MonadIO m => m Bool
glGetARBDrawInstanced :: m Bool
glGetARBDrawInstanced = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_draw_instanced")
gl_ARB_draw_instanced :: Bool
gl_ARB_draw_instanced :: Bool
gl_ARB_draw_instanced = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_draw_instanced" Set String
extensions
{-# NOINLINE gl_ARB_draw_instanced #-}
glGetARBEnhancedLayouts :: MonadIO m => m Bool
glGetARBEnhancedLayouts :: m Bool
glGetARBEnhancedLayouts = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_enhanced_layouts")
gl_ARB_enhanced_layouts :: Bool
gl_ARB_enhanced_layouts :: Bool
gl_ARB_enhanced_layouts = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_enhanced_layouts" Set String
extensions
{-# NOINLINE gl_ARB_enhanced_layouts #-}
glGetARBExplicitUniformLocation :: MonadIO m => m Bool
glGetARBExplicitUniformLocation :: m Bool
glGetARBExplicitUniformLocation = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_explicit_uniform_location")
gl_ARB_explicit_uniform_location :: Bool
gl_ARB_explicit_uniform_location :: Bool
gl_ARB_explicit_uniform_location = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_explicit_uniform_location" Set String
extensions
{-# NOINLINE gl_ARB_explicit_uniform_location #-}
glGetARBFragmentProgram :: MonadIO m => m Bool
glGetARBFragmentProgram :: m Bool
glGetARBFragmentProgram = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_fragment_program")
gl_ARB_fragment_program :: Bool
gl_ARB_fragment_program :: Bool
gl_ARB_fragment_program = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_fragment_program" Set String
extensions
{-# NOINLINE gl_ARB_fragment_program #-}
glGetARBFragmentShader :: MonadIO m => m Bool
glGetARBFragmentShader :: m Bool
glGetARBFragmentShader = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_fragment_shader")
gl_ARB_fragment_shader :: Bool
gl_ARB_fragment_shader :: Bool
gl_ARB_fragment_shader = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_fragment_shader" Set String
extensions
{-# NOINLINE gl_ARB_fragment_shader #-}
glGetARBFramebufferNoAttachments :: MonadIO m => m Bool
glGetARBFramebufferNoAttachments :: m Bool
glGetARBFramebufferNoAttachments = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_framebuffer_no_attachments")
gl_ARB_framebuffer_no_attachments :: Bool
gl_ARB_framebuffer_no_attachments :: Bool
gl_ARB_framebuffer_no_attachments = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_framebuffer_no_attachments" Set String
extensions
{-# NOINLINE gl_ARB_framebuffer_no_attachments #-}
glGetARBFramebufferObject :: MonadIO m => m Bool
glGetARBFramebufferObject :: m Bool
glGetARBFramebufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_framebuffer_object")
gl_ARB_framebuffer_object :: Bool
gl_ARB_framebuffer_object :: Bool
gl_ARB_framebuffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_framebuffer_object" Set String
extensions
{-# NOINLINE gl_ARB_framebuffer_object #-}
glGetARBFramebufferSRGB :: MonadIO m => m Bool
glGetARBFramebufferSRGB :: m Bool
glGetARBFramebufferSRGB = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_framebuffer_sRGB")
gl_ARB_framebuffer_sRGB :: Bool
gl_ARB_framebuffer_sRGB :: Bool
gl_ARB_framebuffer_sRGB = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_framebuffer_sRGB" Set String
extensions
{-# NOINLINE gl_ARB_framebuffer_sRGB #-}
glGetARBGeometryShader4 :: MonadIO m => m Bool
glGetARBGeometryShader4 :: m Bool
glGetARBGeometryShader4 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_geometry_shader4")
gl_ARB_geometry_shader4 :: Bool
gl_ARB_geometry_shader4 :: Bool
gl_ARB_geometry_shader4 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_geometry_shader4" Set String
extensions
{-# NOINLINE gl_ARB_geometry_shader4 #-}
glGetARBGetProgramBinary :: MonadIO m => m Bool
glGetARBGetProgramBinary :: m Bool
glGetARBGetProgramBinary = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_get_program_binary")
gl_ARB_get_program_binary :: Bool
gl_ARB_get_program_binary :: Bool
gl_ARB_get_program_binary = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_get_program_binary" Set String
extensions
{-# NOINLINE gl_ARB_get_program_binary #-}
glGetARBGetTextureSubImage :: MonadIO m => m Bool
glGetARBGetTextureSubImage :: m Bool
glGetARBGetTextureSubImage = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_get_texture_sub_image")
gl_ARB_get_texture_sub_image :: Bool
gl_ARB_get_texture_sub_image :: Bool
gl_ARB_get_texture_sub_image = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_get_texture_sub_image" Set String
extensions
{-# NOINLINE gl_ARB_get_texture_sub_image #-}
glGetARBGlSpirv :: MonadIO m => m Bool
glGetARBGlSpirv :: m Bool
glGetARBGlSpirv = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_gl_spirv")
gl_ARB_gl_spirv :: Bool
gl_ARB_gl_spirv :: Bool
gl_ARB_gl_spirv = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_gl_spirv" Set String
extensions
{-# NOINLINE gl_ARB_gl_spirv #-}
glGetARBGPUShader5 :: MonadIO m => m Bool
glGetARBGPUShader5 :: m Bool
glGetARBGPUShader5 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_gpu_shader5")
gl_ARB_gpu_shader5 :: Bool
gl_ARB_gpu_shader5 :: Bool
gl_ARB_gpu_shader5 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_gpu_shader5" Set String
extensions
{-# NOINLINE gl_ARB_gpu_shader5 #-}
glGetARBGPUShaderFP64 :: MonadIO m => m Bool
glGetARBGPUShaderFP64 :: m Bool
glGetARBGPUShaderFP64 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_gpu_shader_fp64")
gl_ARB_gpu_shader_fp64 :: Bool
gl_ARB_gpu_shader_fp64 :: Bool
gl_ARB_gpu_shader_fp64 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_gpu_shader_fp64" Set String
extensions
{-# NOINLINE gl_ARB_gpu_shader_fp64 #-}
glGetARBGPUShaderInt64 :: MonadIO m => m Bool
glGetARBGPUShaderInt64 :: m Bool
glGetARBGPUShaderInt64 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_gpu_shader_int64")
gl_ARB_gpu_shader_int64 :: Bool
gl_ARB_gpu_shader_int64 :: Bool
gl_ARB_gpu_shader_int64 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_gpu_shader_int64" Set String
extensions
{-# NOINLINE gl_ARB_gpu_shader_int64 #-}
glGetARBHalfFloatPixel :: MonadIO m => m Bool
glGetARBHalfFloatPixel :: m Bool
glGetARBHalfFloatPixel = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_half_float_pixel")
gl_ARB_half_float_pixel :: Bool
gl_ARB_half_float_pixel :: Bool
gl_ARB_half_float_pixel = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_half_float_pixel" Set String
extensions
{-# NOINLINE gl_ARB_half_float_pixel #-}
glGetARBHalfFloatVertex :: MonadIO m => m Bool
glGetARBHalfFloatVertex :: m Bool
glGetARBHalfFloatVertex = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_half_float_vertex")
gl_ARB_half_float_vertex :: Bool
gl_ARB_half_float_vertex :: Bool
gl_ARB_half_float_vertex = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_half_float_vertex" Set String
extensions
{-# NOINLINE gl_ARB_half_float_vertex #-}
glGetARBImaging :: MonadIO m => m Bool
glGetARBImaging :: m Bool
glGetARBImaging = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_imaging")
gl_ARB_imaging :: Bool
gl_ARB_imaging :: Bool
gl_ARB_imaging = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_imaging" Set String
extensions
{-# NOINLINE gl_ARB_imaging #-}
glGetARBIndirectParameters :: MonadIO m => m Bool
glGetARBIndirectParameters :: m Bool
glGetARBIndirectParameters = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_indirect_parameters")
gl_ARB_indirect_parameters :: Bool
gl_ARB_indirect_parameters :: Bool
gl_ARB_indirect_parameters = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_indirect_parameters" Set String
extensions
{-# NOINLINE gl_ARB_indirect_parameters #-}
glGetARBInstancedArrays :: MonadIO m => m Bool
glGetARBInstancedArrays :: m Bool
glGetARBInstancedArrays = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_instanced_arrays")
gl_ARB_instanced_arrays :: Bool
gl_ARB_instanced_arrays :: Bool
gl_ARB_instanced_arrays = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_instanced_arrays" Set String
extensions
{-# NOINLINE gl_ARB_instanced_arrays #-}
glGetARBInternalformatQuery :: MonadIO m => m Bool
glGetARBInternalformatQuery :: m Bool
glGetARBInternalformatQuery = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_internalformat_query")
gl_ARB_internalformat_query :: Bool
gl_ARB_internalformat_query :: Bool
gl_ARB_internalformat_query = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_internalformat_query" Set String
extensions
{-# NOINLINE gl_ARB_internalformat_query #-}
glGetARBInternalformatQuery2 :: MonadIO m => m Bool
glGetARBInternalformatQuery2 :: m Bool
glGetARBInternalformatQuery2 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_internalformat_query2")
gl_ARB_internalformat_query2 :: Bool
gl_ARB_internalformat_query2 :: Bool
gl_ARB_internalformat_query2 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_internalformat_query2" Set String
extensions
{-# NOINLINE gl_ARB_internalformat_query2 #-}
glGetARBInvalidateSubdata :: MonadIO m => m Bool
glGetARBInvalidateSubdata :: m Bool
glGetARBInvalidateSubdata = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_invalidate_subdata")
gl_ARB_invalidate_subdata :: Bool
gl_ARB_invalidate_subdata :: Bool
gl_ARB_invalidate_subdata = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_invalidate_subdata" Set String
extensions
{-# NOINLINE gl_ARB_invalidate_subdata #-}
glGetARBMapBufferAlignment :: MonadIO m => m Bool
glGetARBMapBufferAlignment :: m Bool
glGetARBMapBufferAlignment = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_map_buffer_alignment")
gl_ARB_map_buffer_alignment :: Bool
gl_ARB_map_buffer_alignment :: Bool
gl_ARB_map_buffer_alignment = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_map_buffer_alignment" Set String
extensions
{-# NOINLINE gl_ARB_map_buffer_alignment #-}
glGetARBMapBufferRange :: MonadIO m => m Bool
glGetARBMapBufferRange :: m Bool
glGetARBMapBufferRange = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_map_buffer_range")
gl_ARB_map_buffer_range :: Bool
gl_ARB_map_buffer_range :: Bool
gl_ARB_map_buffer_range = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_map_buffer_range" Set String
extensions
{-# NOINLINE gl_ARB_map_buffer_range #-}
glGetARBMatrixPalette :: MonadIO m => m Bool
glGetARBMatrixPalette :: m Bool
glGetARBMatrixPalette = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_matrix_palette")
gl_ARB_matrix_palette :: Bool
gl_ARB_matrix_palette :: Bool
gl_ARB_matrix_palette = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_matrix_palette" Set String
extensions
{-# NOINLINE gl_ARB_matrix_palette #-}
glGetARBMultiBind :: MonadIO m => m Bool
glGetARBMultiBind :: m Bool
glGetARBMultiBind = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_multi_bind")
gl_ARB_multi_bind :: Bool
gl_ARB_multi_bind :: Bool
gl_ARB_multi_bind = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_multi_bind" Set String
extensions
{-# NOINLINE gl_ARB_multi_bind #-}
glGetARBMultiDrawIndirect :: MonadIO m => m Bool
glGetARBMultiDrawIndirect :: m Bool
glGetARBMultiDrawIndirect = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_multi_draw_indirect")
gl_ARB_multi_draw_indirect :: Bool
gl_ARB_multi_draw_indirect :: Bool
gl_ARB_multi_draw_indirect = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_multi_draw_indirect" Set String
extensions
{-# NOINLINE gl_ARB_multi_draw_indirect #-}
glGetARBMultisample :: MonadIO m => m Bool
glGetARBMultisample :: m Bool
glGetARBMultisample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_multisample")
gl_ARB_multisample :: Bool
gl_ARB_multisample :: Bool
gl_ARB_multisample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_multisample" Set String
extensions
{-# NOINLINE gl_ARB_multisample #-}
glGetARBMultitexture :: MonadIO m => m Bool
glGetARBMultitexture :: m Bool
glGetARBMultitexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_multitexture")
gl_ARB_multitexture :: Bool
gl_ARB_multitexture :: Bool
gl_ARB_multitexture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_multitexture" Set String
extensions
{-# NOINLINE gl_ARB_multitexture #-}
glGetARBOcclusionQuery :: MonadIO m => m Bool
glGetARBOcclusionQuery :: m Bool
glGetARBOcclusionQuery = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_occlusion_query")
gl_ARB_occlusion_query :: Bool
gl_ARB_occlusion_query :: Bool
gl_ARB_occlusion_query = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_occlusion_query" Set String
extensions
{-# NOINLINE gl_ARB_occlusion_query #-}
glGetARBOcclusionQuery2 :: MonadIO m => m Bool
glGetARBOcclusionQuery2 :: m Bool
glGetARBOcclusionQuery2 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_occlusion_query2")
gl_ARB_occlusion_query2 :: Bool
gl_ARB_occlusion_query2 :: Bool
gl_ARB_occlusion_query2 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_occlusion_query2" Set String
extensions
{-# NOINLINE gl_ARB_occlusion_query2 #-}
glGetARBParallelShaderCompile :: MonadIO m => m Bool
glGetARBParallelShaderCompile :: m Bool
glGetARBParallelShaderCompile = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_parallel_shader_compile")
gl_ARB_parallel_shader_compile :: Bool
gl_ARB_parallel_shader_compile :: Bool
gl_ARB_parallel_shader_compile = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_parallel_shader_compile" Set String
extensions
{-# NOINLINE gl_ARB_parallel_shader_compile #-}
glGetARBPipelineStatisticsQuery :: MonadIO m => m Bool
glGetARBPipelineStatisticsQuery :: m Bool
glGetARBPipelineStatisticsQuery = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_pipeline_statistics_query")
gl_ARB_pipeline_statistics_query :: Bool
gl_ARB_pipeline_statistics_query :: Bool
gl_ARB_pipeline_statistics_query = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_pipeline_statistics_query" Set String
extensions
{-# NOINLINE gl_ARB_pipeline_statistics_query #-}
glGetARBPixelBufferObject :: MonadIO m => m Bool
glGetARBPixelBufferObject :: m Bool
glGetARBPixelBufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_pixel_buffer_object")
gl_ARB_pixel_buffer_object :: Bool
gl_ARB_pixel_buffer_object :: Bool
gl_ARB_pixel_buffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_pixel_buffer_object" Set String
extensions
{-# NOINLINE gl_ARB_pixel_buffer_object #-}
glGetARBPointParameters :: MonadIO m => m Bool
glGetARBPointParameters :: m Bool
glGetARBPointParameters = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_point_parameters")
gl_ARB_point_parameters :: Bool
gl_ARB_point_parameters :: Bool
gl_ARB_point_parameters = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_point_parameters" Set String
extensions
{-# NOINLINE gl_ARB_point_parameters #-}
glGetARBPointSprite :: MonadIO m => m Bool
glGetARBPointSprite :: m Bool
glGetARBPointSprite = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_point_sprite")
gl_ARB_point_sprite :: Bool
gl_ARB_point_sprite :: Bool
gl_ARB_point_sprite = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_point_sprite" Set String
extensions
{-# NOINLINE gl_ARB_point_sprite #-}
glGetARBPolygonOffsetClamp :: MonadIO m => m Bool
glGetARBPolygonOffsetClamp :: m Bool
glGetARBPolygonOffsetClamp = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_polygon_offset_clamp")
gl_ARB_polygon_offset_clamp :: Bool
gl_ARB_polygon_offset_clamp :: Bool
gl_ARB_polygon_offset_clamp = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_polygon_offset_clamp" Set String
extensions
{-# NOINLINE gl_ARB_polygon_offset_clamp #-}
glGetARBProgramInterfaceQuery :: MonadIO m => m Bool
glGetARBProgramInterfaceQuery :: m Bool
glGetARBProgramInterfaceQuery = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_program_interface_query")
gl_ARB_program_interface_query :: Bool
gl_ARB_program_interface_query :: Bool
gl_ARB_program_interface_query = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_program_interface_query" Set String
extensions
{-# NOINLINE gl_ARB_program_interface_query #-}
glGetARBProvokingVertex :: MonadIO m => m Bool
glGetARBProvokingVertex :: m Bool
glGetARBProvokingVertex = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_provoking_vertex")
gl_ARB_provoking_vertex :: Bool
gl_ARB_provoking_vertex :: Bool
gl_ARB_provoking_vertex = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_provoking_vertex" Set String
extensions
{-# NOINLINE gl_ARB_provoking_vertex #-}
glGetARBQueryBufferObject :: MonadIO m => m Bool
glGetARBQueryBufferObject :: m Bool
glGetARBQueryBufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_query_buffer_object")
gl_ARB_query_buffer_object :: Bool
gl_ARB_query_buffer_object :: Bool
gl_ARB_query_buffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_query_buffer_object" Set String
extensions
{-# NOINLINE gl_ARB_query_buffer_object #-}
glGetARBRobustness :: MonadIO m => m Bool
glGetARBRobustness :: m Bool
glGetARBRobustness = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_robustness")
gl_ARB_robustness :: Bool
gl_ARB_robustness :: Bool
gl_ARB_robustness = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_robustness" Set String
extensions
{-# NOINLINE gl_ARB_robustness #-}
glGetARBSampleLocations :: MonadIO m => m Bool
glGetARBSampleLocations :: m Bool
glGetARBSampleLocations = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_sample_locations")
gl_ARB_sample_locations :: Bool
gl_ARB_sample_locations :: Bool
gl_ARB_sample_locations = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_sample_locations" Set String
extensions
{-# NOINLINE gl_ARB_sample_locations #-}
glGetARBSampleShading :: MonadIO m => m Bool
glGetARBSampleShading :: m Bool
glGetARBSampleShading = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_sample_shading")
gl_ARB_sample_shading :: Bool
gl_ARB_sample_shading :: Bool
gl_ARB_sample_shading = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_sample_shading" Set String
extensions
{-# NOINLINE gl_ARB_sample_shading #-}
glGetARBSamplerObjects :: MonadIO m => m Bool
glGetARBSamplerObjects :: m Bool
glGetARBSamplerObjects = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_sampler_objects")
gl_ARB_sampler_objects :: Bool
gl_ARB_sampler_objects :: Bool
gl_ARB_sampler_objects = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_sampler_objects" Set String
extensions
{-# NOINLINE gl_ARB_sampler_objects #-}
glGetARBSeamlessCubeMap :: MonadIO m => m Bool
glGetARBSeamlessCubeMap :: m Bool
glGetARBSeamlessCubeMap = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_seamless_cube_map")
gl_ARB_seamless_cube_map :: Bool
gl_ARB_seamless_cube_map :: Bool
gl_ARB_seamless_cube_map = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_seamless_cube_map" Set String
extensions
{-# NOINLINE gl_ARB_seamless_cube_map #-}
glGetARBSeamlessCubemapPerTexture :: MonadIO m => m Bool
glGetARBSeamlessCubemapPerTexture :: m Bool
glGetARBSeamlessCubemapPerTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_seamless_cubemap_per_texture")
gl_ARB_seamless_cubemap_per_texture :: Bool
gl_ARB_seamless_cubemap_per_texture :: Bool
gl_ARB_seamless_cubemap_per_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_seamless_cubemap_per_texture" Set String
extensions
{-# NOINLINE gl_ARB_seamless_cubemap_per_texture #-}
glGetARBSeparateShaderObjects :: MonadIO m => m Bool
glGetARBSeparateShaderObjects :: m Bool
glGetARBSeparateShaderObjects = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_separate_shader_objects")
gl_ARB_separate_shader_objects :: Bool
gl_ARB_separate_shader_objects :: Bool
gl_ARB_separate_shader_objects = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_separate_shader_objects" Set String
extensions
{-# NOINLINE gl_ARB_separate_shader_objects #-}
glGetARBShaderAtomicCounters :: MonadIO m => m Bool
glGetARBShaderAtomicCounters :: m Bool
glGetARBShaderAtomicCounters = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shader_atomic_counters")
gl_ARB_shader_atomic_counters :: Bool
gl_ARB_shader_atomic_counters :: Bool
gl_ARB_shader_atomic_counters = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shader_atomic_counters" Set String
extensions
{-# NOINLINE gl_ARB_shader_atomic_counters #-}
glGetARBShaderImageLoadStore :: MonadIO m => m Bool
glGetARBShaderImageLoadStore :: m Bool
glGetARBShaderImageLoadStore = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shader_image_load_store")
gl_ARB_shader_image_load_store :: Bool
gl_ARB_shader_image_load_store :: Bool
gl_ARB_shader_image_load_store = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shader_image_load_store" Set String
extensions
{-# NOINLINE gl_ARB_shader_image_load_store #-}
glGetARBShaderObjects :: MonadIO m => m Bool
glGetARBShaderObjects :: m Bool
glGetARBShaderObjects = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shader_objects")
gl_ARB_shader_objects :: Bool
gl_ARB_shader_objects :: Bool
gl_ARB_shader_objects = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shader_objects" Set String
extensions
{-# NOINLINE gl_ARB_shader_objects #-}
glGetARBShaderStorageBufferObject :: MonadIO m => m Bool
glGetARBShaderStorageBufferObject :: m Bool
glGetARBShaderStorageBufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shader_storage_buffer_object")
gl_ARB_shader_storage_buffer_object :: Bool
gl_ARB_shader_storage_buffer_object :: Bool
gl_ARB_shader_storage_buffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shader_storage_buffer_object" Set String
extensions
{-# NOINLINE gl_ARB_shader_storage_buffer_object #-}
glGetARBShaderSubroutine :: MonadIO m => m Bool
glGetARBShaderSubroutine :: m Bool
glGetARBShaderSubroutine = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shader_subroutine")
gl_ARB_shader_subroutine :: Bool
gl_ARB_shader_subroutine :: Bool
gl_ARB_shader_subroutine = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shader_subroutine" Set String
extensions
{-# NOINLINE gl_ARB_shader_subroutine #-}
glGetARBShadingLanguage100 :: MonadIO m => m Bool
glGetARBShadingLanguage100 :: m Bool
glGetARBShadingLanguage100 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shading_language_100")
gl_ARB_shading_language_100 :: Bool
gl_ARB_shading_language_100 :: Bool
gl_ARB_shading_language_100 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shading_language_100" Set String
extensions
{-# NOINLINE gl_ARB_shading_language_100 #-}
glGetARBShadingLanguageInclude :: MonadIO m => m Bool
glGetARBShadingLanguageInclude :: m Bool
glGetARBShadingLanguageInclude = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shading_language_include")
gl_ARB_shading_language_include :: Bool
gl_ARB_shading_language_include :: Bool
gl_ARB_shading_language_include = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shading_language_include" Set String
extensions
{-# NOINLINE gl_ARB_shading_language_include #-}
glGetARBShadow :: MonadIO m => m Bool
glGetARBShadow :: m Bool
glGetARBShadow = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shadow")
gl_ARB_shadow :: Bool
gl_ARB_shadow :: Bool
gl_ARB_shadow = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shadow" Set String
extensions
{-# NOINLINE gl_ARB_shadow #-}
glGetARBShadowAmbient :: MonadIO m => m Bool
glGetARBShadowAmbient :: m Bool
glGetARBShadowAmbient = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shadow_ambient")
gl_ARB_shadow_ambient :: Bool
gl_ARB_shadow_ambient :: Bool
gl_ARB_shadow_ambient = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_shadow_ambient" Set String
extensions
{-# NOINLINE gl_ARB_shadow_ambient #-}
glGetARBSparseBuffer :: MonadIO m => m Bool
glGetARBSparseBuffer :: m Bool
glGetARBSparseBuffer = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_sparse_buffer")
gl_ARB_sparse_buffer :: Bool
gl_ARB_sparse_buffer :: Bool
gl_ARB_sparse_buffer = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_sparse_buffer" Set String
extensions
{-# NOINLINE gl_ARB_sparse_buffer #-}
glGetARBSparseTexture :: MonadIO m => m Bool
glGetARBSparseTexture :: m Bool
glGetARBSparseTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_sparse_texture")
gl_ARB_sparse_texture :: Bool
gl_ARB_sparse_texture :: Bool
gl_ARB_sparse_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_sparse_texture" Set String
extensions
{-# NOINLINE gl_ARB_sparse_texture #-}
glGetARBSpirvExtensions :: MonadIO m => m Bool
glGetARBSpirvExtensions :: m Bool
glGetARBSpirvExtensions = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_spirv_extensions")
gl_ARB_spirv_extensions :: Bool
gl_ARB_spirv_extensions :: Bool
gl_ARB_spirv_extensions = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_spirv_extensions" Set String
extensions
{-# NOINLINE gl_ARB_spirv_extensions #-}
glGetARBStencilTexturing :: MonadIO m => m Bool
glGetARBStencilTexturing :: m Bool
glGetARBStencilTexturing = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_stencil_texturing")
gl_ARB_stencil_texturing :: Bool
gl_ARB_stencil_texturing :: Bool
gl_ARB_stencil_texturing = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_stencil_texturing" Set String
extensions
{-# NOINLINE gl_ARB_stencil_texturing #-}
glGetARBSync :: MonadIO m => m Bool
glGetARBSync :: m Bool
glGetARBSync = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_sync")
gl_ARB_sync :: Bool
gl_ARB_sync :: Bool
gl_ARB_sync = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_sync" Set String
extensions
{-# NOINLINE gl_ARB_sync #-}
glGetARBTessellationShader :: MonadIO m => m Bool
glGetARBTessellationShader :: m Bool
glGetARBTessellationShader = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_tessellation_shader")
gl_ARB_tessellation_shader :: Bool
gl_ARB_tessellation_shader :: Bool
gl_ARB_tessellation_shader = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_tessellation_shader" Set String
extensions
{-# NOINLINE gl_ARB_tessellation_shader #-}
glGetARBTextureBarrier :: MonadIO m => m Bool
glGetARBTextureBarrier :: m Bool
glGetARBTextureBarrier = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_barrier")
gl_ARB_texture_barrier :: Bool
gl_ARB_texture_barrier :: Bool
gl_ARB_texture_barrier = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_barrier" Set String
extensions
{-# NOINLINE gl_ARB_texture_barrier #-}
glGetARBTextureBorderClamp :: MonadIO m => m Bool
glGetARBTextureBorderClamp :: m Bool
glGetARBTextureBorderClamp = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_border_clamp")
gl_ARB_texture_border_clamp :: Bool
gl_ARB_texture_border_clamp :: Bool
gl_ARB_texture_border_clamp = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_border_clamp" Set String
extensions
{-# NOINLINE gl_ARB_texture_border_clamp #-}
glGetARBTextureBufferObject :: MonadIO m => m Bool
glGetARBTextureBufferObject :: m Bool
glGetARBTextureBufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_buffer_object")
gl_ARB_texture_buffer_object :: Bool
gl_ARB_texture_buffer_object :: Bool
gl_ARB_texture_buffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_buffer_object" Set String
extensions
{-# NOINLINE gl_ARB_texture_buffer_object #-}
glGetARBTextureBufferObjectRGB32 :: MonadIO m => m Bool
glGetARBTextureBufferObjectRGB32 :: m Bool
glGetARBTextureBufferObjectRGB32 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_buffer_object_rgb32")
gl_ARB_texture_buffer_object_rgb32 :: Bool
gl_ARB_texture_buffer_object_rgb32 :: Bool
gl_ARB_texture_buffer_object_rgb32 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_buffer_object_rgb32" Set String
extensions
{-# NOINLINE gl_ARB_texture_buffer_object_rgb32 #-}
glGetARBTextureBufferRange :: MonadIO m => m Bool
glGetARBTextureBufferRange :: m Bool
glGetARBTextureBufferRange = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_buffer_range")
gl_ARB_texture_buffer_range :: Bool
gl_ARB_texture_buffer_range :: Bool
gl_ARB_texture_buffer_range = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_buffer_range" Set String
extensions
{-# NOINLINE gl_ARB_texture_buffer_range #-}
glGetARBTextureCompression :: MonadIO m => m Bool
glGetARBTextureCompression :: m Bool
glGetARBTextureCompression = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_compression")
gl_ARB_texture_compression :: Bool
gl_ARB_texture_compression :: Bool
gl_ARB_texture_compression = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_compression" Set String
extensions
{-# NOINLINE gl_ARB_texture_compression #-}
glGetARBTextureCompressionBPTC :: MonadIO m => m Bool
glGetARBTextureCompressionBPTC :: m Bool
glGetARBTextureCompressionBPTC = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_compression_bptc")
gl_ARB_texture_compression_bptc :: Bool
gl_ARB_texture_compression_bptc :: Bool
gl_ARB_texture_compression_bptc = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_compression_bptc" Set String
extensions
{-# NOINLINE gl_ARB_texture_compression_bptc #-}
glGetARBTextureCompressionRGTC :: MonadIO m => m Bool
glGetARBTextureCompressionRGTC :: m Bool
glGetARBTextureCompressionRGTC = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_compression_rgtc")
gl_ARB_texture_compression_rgtc :: Bool
gl_ARB_texture_compression_rgtc :: Bool
gl_ARB_texture_compression_rgtc = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_compression_rgtc" Set String
extensions
{-# NOINLINE gl_ARB_texture_compression_rgtc #-}
glGetARBTextureCubeMap :: MonadIO m => m Bool
glGetARBTextureCubeMap :: m Bool
glGetARBTextureCubeMap = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_cube_map")
gl_ARB_texture_cube_map :: Bool
gl_ARB_texture_cube_map :: Bool
gl_ARB_texture_cube_map = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_cube_map" Set String
extensions
{-# NOINLINE gl_ARB_texture_cube_map #-}
glGetARBTextureCubeMapArray :: MonadIO m => m Bool
glGetARBTextureCubeMapArray :: m Bool
glGetARBTextureCubeMapArray = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_cube_map_array")
gl_ARB_texture_cube_map_array :: Bool
gl_ARB_texture_cube_map_array :: Bool
gl_ARB_texture_cube_map_array = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_cube_map_array" Set String
extensions
{-# NOINLINE gl_ARB_texture_cube_map_array #-}
glGetARBTextureEnvCombine :: MonadIO m => m Bool
glGetARBTextureEnvCombine :: m Bool
glGetARBTextureEnvCombine = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_env_combine")
gl_ARB_texture_env_combine :: Bool
gl_ARB_texture_env_combine :: Bool
gl_ARB_texture_env_combine = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_env_combine" Set String
extensions
{-# NOINLINE gl_ARB_texture_env_combine #-}
glGetARBTextureEnvDot3 :: MonadIO m => m Bool
glGetARBTextureEnvDot3 :: m Bool
glGetARBTextureEnvDot3 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_env_dot3")
gl_ARB_texture_env_dot3 :: Bool
gl_ARB_texture_env_dot3 :: Bool
gl_ARB_texture_env_dot3 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_env_dot3" Set String
extensions
{-# NOINLINE gl_ARB_texture_env_dot3 #-}
glGetARBTextureFilterAnisotropic :: MonadIO m => m Bool
glGetARBTextureFilterAnisotropic :: m Bool
glGetARBTextureFilterAnisotropic = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_filter_anisotropic")
gl_ARB_texture_filter_anisotropic :: Bool
gl_ARB_texture_filter_anisotropic :: Bool
gl_ARB_texture_filter_anisotropic = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_filter_anisotropic" Set String
extensions
{-# NOINLINE gl_ARB_texture_filter_anisotropic #-}
glGetARBTextureFilterMinmax :: MonadIO m => m Bool
glGetARBTextureFilterMinmax :: m Bool
glGetARBTextureFilterMinmax = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_filter_minmax")
gl_ARB_texture_filter_minmax :: Bool
gl_ARB_texture_filter_minmax :: Bool
gl_ARB_texture_filter_minmax = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_filter_minmax" Set String
extensions
{-# NOINLINE gl_ARB_texture_filter_minmax #-}
glGetARBTextureFloat :: MonadIO m => m Bool
glGetARBTextureFloat :: m Bool
glGetARBTextureFloat = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_float")
gl_ARB_texture_float :: Bool
gl_ARB_texture_float :: Bool
gl_ARB_texture_float = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_float" Set String
extensions
{-# NOINLINE gl_ARB_texture_float #-}
glGetARBTextureGather :: MonadIO m => m Bool
glGetARBTextureGather :: m Bool
glGetARBTextureGather = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_gather")
gl_ARB_texture_gather :: Bool
gl_ARB_texture_gather :: Bool
gl_ARB_texture_gather = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_gather" Set String
extensions
{-# NOINLINE gl_ARB_texture_gather #-}
glGetARBTextureMirrorClampToEdge :: MonadIO m => m Bool
glGetARBTextureMirrorClampToEdge :: m Bool
glGetARBTextureMirrorClampToEdge = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_mirror_clamp_to_edge")
gl_ARB_texture_mirror_clamp_to_edge :: Bool
gl_ARB_texture_mirror_clamp_to_edge :: Bool
gl_ARB_texture_mirror_clamp_to_edge = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_mirror_clamp_to_edge" Set String
extensions
{-# NOINLINE gl_ARB_texture_mirror_clamp_to_edge #-}
glGetARBTextureMirroredRepeat :: MonadIO m => m Bool
glGetARBTextureMirroredRepeat :: m Bool
glGetARBTextureMirroredRepeat = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_mirrored_repeat")
gl_ARB_texture_mirrored_repeat :: Bool
gl_ARB_texture_mirrored_repeat :: Bool
gl_ARB_texture_mirrored_repeat = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_mirrored_repeat" Set String
extensions
{-# NOINLINE gl_ARB_texture_mirrored_repeat #-}
glGetARBTextureMultisample :: MonadIO m => m Bool
glGetARBTextureMultisample :: m Bool
glGetARBTextureMultisample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_multisample")
gl_ARB_texture_multisample :: Bool
gl_ARB_texture_multisample :: Bool
gl_ARB_texture_multisample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_multisample" Set String
extensions
{-# NOINLINE gl_ARB_texture_multisample #-}
glGetARBTextureRectangle :: MonadIO m => m Bool
glGetARBTextureRectangle :: m Bool
glGetARBTextureRectangle = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_rectangle")
gl_ARB_texture_rectangle :: Bool
gl_ARB_texture_rectangle :: Bool
gl_ARB_texture_rectangle = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_rectangle" Set String
extensions
{-# NOINLINE gl_ARB_texture_rectangle #-}
glGetARBTextureRG :: MonadIO m => m Bool
glGetARBTextureRG :: m Bool
glGetARBTextureRG = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_rg")
gl_ARB_texture_rg :: Bool
gl_ARB_texture_rg :: Bool
gl_ARB_texture_rg = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_rg" Set String
extensions
{-# NOINLINE gl_ARB_texture_rg #-}
glGetARBTextureRGB10A2UI :: MonadIO m => m Bool
glGetARBTextureRGB10A2UI :: m Bool
glGetARBTextureRGB10A2UI = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_rgb10_a2ui")
gl_ARB_texture_rgb10_a2ui :: Bool
gl_ARB_texture_rgb10_a2ui :: Bool
gl_ARB_texture_rgb10_a2ui = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_rgb10_a2ui" Set String
extensions
{-# NOINLINE gl_ARB_texture_rgb10_a2ui #-}
glGetARBTextureStencil8 :: MonadIO m => m Bool
glGetARBTextureStencil8 :: m Bool
glGetARBTextureStencil8 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_stencil8")
gl_ARB_texture_stencil8 :: Bool
gl_ARB_texture_stencil8 :: Bool
gl_ARB_texture_stencil8 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_stencil8" Set String
extensions
{-# NOINLINE gl_ARB_texture_stencil8 #-}
glGetARBTextureStorage :: MonadIO m => m Bool
glGetARBTextureStorage :: m Bool
glGetARBTextureStorage = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_storage")
gl_ARB_texture_storage :: Bool
gl_ARB_texture_storage :: Bool
gl_ARB_texture_storage = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_storage" Set String
extensions
{-# NOINLINE gl_ARB_texture_storage #-}
glGetARBTextureStorageMultisample :: MonadIO m => m Bool
glGetARBTextureStorageMultisample :: m Bool
glGetARBTextureStorageMultisample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_storage_multisample")
gl_ARB_texture_storage_multisample :: Bool
gl_ARB_texture_storage_multisample :: Bool
gl_ARB_texture_storage_multisample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_storage_multisample" Set String
extensions
{-# NOINLINE gl_ARB_texture_storage_multisample #-}
glGetARBTextureSwizzle :: MonadIO m => m Bool
glGetARBTextureSwizzle :: m Bool
glGetARBTextureSwizzle = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_swizzle")
gl_ARB_texture_swizzle :: Bool
gl_ARB_texture_swizzle :: Bool
gl_ARB_texture_swizzle = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_swizzle" Set String
extensions
{-# NOINLINE gl_ARB_texture_swizzle #-}
glGetARBTextureView :: MonadIO m => m Bool
glGetARBTextureView :: m Bool
glGetARBTextureView = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_view")
gl_ARB_texture_view :: Bool
gl_ARB_texture_view :: Bool
gl_ARB_texture_view = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_texture_view" Set String
extensions
{-# NOINLINE gl_ARB_texture_view #-}
glGetARBTimerQuery :: MonadIO m => m Bool
glGetARBTimerQuery :: m Bool
glGetARBTimerQuery = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_timer_query")
gl_ARB_timer_query :: Bool
gl_ARB_timer_query :: Bool
gl_ARB_timer_query = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_timer_query" Set String
extensions
{-# NOINLINE gl_ARB_timer_query #-}
glGetARBTransformFeedback2 :: MonadIO m => m Bool
glGetARBTransformFeedback2 :: m Bool
glGetARBTransformFeedback2 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_transform_feedback2")
gl_ARB_transform_feedback2 :: Bool
gl_ARB_transform_feedback2 :: Bool
gl_ARB_transform_feedback2 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_transform_feedback2" Set String
extensions
{-# NOINLINE gl_ARB_transform_feedback2 #-}
glGetARBTransformFeedback3 :: MonadIO m => m Bool
glGetARBTransformFeedback3 :: m Bool
glGetARBTransformFeedback3 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_transform_feedback3")
gl_ARB_transform_feedback3 :: Bool
gl_ARB_transform_feedback3 :: Bool
gl_ARB_transform_feedback3 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_transform_feedback3" Set String
extensions
{-# NOINLINE gl_ARB_transform_feedback3 #-}
glGetARBTransformFeedbackInstanced :: MonadIO m => m Bool
glGetARBTransformFeedbackInstanced :: m Bool
glGetARBTransformFeedbackInstanced = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_transform_feedback_instanced")
gl_ARB_transform_feedback_instanced :: Bool
gl_ARB_transform_feedback_instanced :: Bool
gl_ARB_transform_feedback_instanced = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_transform_feedback_instanced" Set String
extensions
{-# NOINLINE gl_ARB_transform_feedback_instanced #-}
glGetARBTransformFeedbackOverflowQuery :: MonadIO m => m Bool
glGetARBTransformFeedbackOverflowQuery :: m Bool
glGetARBTransformFeedbackOverflowQuery = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_transform_feedback_overflow_query")
gl_ARB_transform_feedback_overflow_query :: Bool
gl_ARB_transform_feedback_overflow_query :: Bool
gl_ARB_transform_feedback_overflow_query = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_transform_feedback_overflow_query" Set String
extensions
{-# NOINLINE gl_ARB_transform_feedback_overflow_query #-}
glGetARBTransposeMatrix :: MonadIO m => m Bool
glGetARBTransposeMatrix :: m Bool
glGetARBTransposeMatrix = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_transpose_matrix")
gl_ARB_transpose_matrix :: Bool
gl_ARB_transpose_matrix :: Bool
gl_ARB_transpose_matrix = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_transpose_matrix" Set String
extensions
{-# NOINLINE gl_ARB_transpose_matrix #-}
glGetARBUniformBufferObject :: MonadIO m => m Bool
glGetARBUniformBufferObject :: m Bool
glGetARBUniformBufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_uniform_buffer_object")
gl_ARB_uniform_buffer_object :: Bool
gl_ARB_uniform_buffer_object :: Bool
gl_ARB_uniform_buffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_uniform_buffer_object" Set String
extensions
{-# NOINLINE gl_ARB_uniform_buffer_object #-}
glGetARBVertexArrayBGRA :: MonadIO m => m Bool
glGetARBVertexArrayBGRA :: m Bool
glGetARBVertexArrayBGRA = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_array_bgra")
gl_ARB_vertex_array_bgra :: Bool
gl_ARB_vertex_array_bgra :: Bool
gl_ARB_vertex_array_bgra = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_array_bgra" Set String
extensions
{-# NOINLINE gl_ARB_vertex_array_bgra #-}
glGetARBVertexArrayObject :: MonadIO m => m Bool
glGetARBVertexArrayObject :: m Bool
glGetARBVertexArrayObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_array_object")
gl_ARB_vertex_array_object :: Bool
gl_ARB_vertex_array_object :: Bool
gl_ARB_vertex_array_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_array_object" Set String
extensions
{-# NOINLINE gl_ARB_vertex_array_object #-}
glGetARBVertexAttrib64Bit :: MonadIO m => m Bool
glGetARBVertexAttrib64Bit :: m Bool
glGetARBVertexAttrib64Bit = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_attrib_64bit")
gl_ARB_vertex_attrib_64bit :: Bool
gl_ARB_vertex_attrib_64bit :: Bool
gl_ARB_vertex_attrib_64bit = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_attrib_64bit" Set String
extensions
{-# NOINLINE gl_ARB_vertex_attrib_64bit #-}
glGetARBVertexAttribBinding :: MonadIO m => m Bool
glGetARBVertexAttribBinding :: m Bool
glGetARBVertexAttribBinding = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_attrib_binding")
gl_ARB_vertex_attrib_binding :: Bool
gl_ARB_vertex_attrib_binding :: Bool
gl_ARB_vertex_attrib_binding = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_attrib_binding" Set String
extensions
{-# NOINLINE gl_ARB_vertex_attrib_binding #-}
glGetARBVertexBlend :: MonadIO m => m Bool
glGetARBVertexBlend :: m Bool
glGetARBVertexBlend = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_blend")
gl_ARB_vertex_blend :: Bool
gl_ARB_vertex_blend :: Bool
gl_ARB_vertex_blend = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_blend" Set String
extensions
{-# NOINLINE gl_ARB_vertex_blend #-}
glGetARBVertexBufferObject :: MonadIO m => m Bool
glGetARBVertexBufferObject :: m Bool
glGetARBVertexBufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_buffer_object")
gl_ARB_vertex_buffer_object :: Bool
gl_ARB_vertex_buffer_object :: Bool
gl_ARB_vertex_buffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_buffer_object" Set String
extensions
{-# NOINLINE gl_ARB_vertex_buffer_object #-}
glGetARBVertexProgram :: MonadIO m => m Bool
glGetARBVertexProgram :: m Bool
glGetARBVertexProgram = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_program")
gl_ARB_vertex_program :: Bool
gl_ARB_vertex_program :: Bool
gl_ARB_vertex_program = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_program" Set String
extensions
{-# NOINLINE gl_ARB_vertex_program #-}
glGetARBVertexShader :: MonadIO m => m Bool
glGetARBVertexShader :: m Bool
glGetARBVertexShader = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_shader")
gl_ARB_vertex_shader :: Bool
gl_ARB_vertex_shader :: Bool
gl_ARB_vertex_shader = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_shader" Set String
extensions
{-# NOINLINE gl_ARB_vertex_shader #-}
glGetARBVertexType10f11f11fRev :: MonadIO m => m Bool
glGetARBVertexType10f11f11fRev :: m Bool
glGetARBVertexType10f11f11fRev = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_type_10f_11f_11f_rev")
gl_ARB_vertex_type_10f_11f_11f_rev :: Bool
gl_ARB_vertex_type_10f_11f_11f_rev :: Bool
gl_ARB_vertex_type_10f_11f_11f_rev = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_type_10f_11f_11f_rev" Set String
extensions
{-# NOINLINE gl_ARB_vertex_type_10f_11f_11f_rev #-}
glGetARBVertexType2101010Rev :: MonadIO m => m Bool
glGetARBVertexType2101010Rev :: m Bool
glGetARBVertexType2101010Rev = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_type_2_10_10_10_rev")
gl_ARB_vertex_type_2_10_10_10_rev :: Bool
gl_ARB_vertex_type_2_10_10_10_rev :: Bool
gl_ARB_vertex_type_2_10_10_10_rev = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_vertex_type_2_10_10_10_rev" Set String
extensions
{-# NOINLINE gl_ARB_vertex_type_2_10_10_10_rev #-}
glGetARBViewportArray :: MonadIO m => m Bool
glGetARBViewportArray :: m Bool
glGetARBViewportArray = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_viewport_array")
gl_ARB_viewport_array :: Bool
gl_ARB_viewport_array :: Bool
gl_ARB_viewport_array = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_viewport_array" Set String
extensions
{-# NOINLINE gl_ARB_viewport_array #-}
glGetARBWindowPos :: MonadIO m => m Bool
glGetARBWindowPos :: m Bool
glGetARBWindowPos = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_window_pos")
gl_ARB_window_pos :: Bool
gl_ARB_window_pos :: Bool
gl_ARB_window_pos = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ARB_window_pos" Set String
extensions
{-# NOINLINE gl_ARB_window_pos #-}
glGetATIDrawBuffers :: MonadIO m => m Bool
glGetATIDrawBuffers :: m Bool
glGetATIDrawBuffers = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_draw_buffers")
gl_ATI_draw_buffers :: Bool
gl_ATI_draw_buffers :: Bool
gl_ATI_draw_buffers = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_draw_buffers" Set String
extensions
{-# NOINLINE gl_ATI_draw_buffers #-}
glGetATIElementArray :: MonadIO m => m Bool
glGetATIElementArray :: m Bool
glGetATIElementArray = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_element_array")
gl_ATI_element_array :: Bool
gl_ATI_element_array :: Bool
gl_ATI_element_array = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_element_array" Set String
extensions
{-# NOINLINE gl_ATI_element_array #-}
glGetATIEnvmapBumpmap :: MonadIO m => m Bool
glGetATIEnvmapBumpmap :: m Bool
glGetATIEnvmapBumpmap = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_envmap_bumpmap")
gl_ATI_envmap_bumpmap :: Bool
gl_ATI_envmap_bumpmap :: Bool
gl_ATI_envmap_bumpmap = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_envmap_bumpmap" Set String
extensions
{-# NOINLINE gl_ATI_envmap_bumpmap #-}
glGetATIFragmentShader :: MonadIO m => m Bool
glGetATIFragmentShader :: m Bool
glGetATIFragmentShader = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_fragment_shader")
gl_ATI_fragment_shader :: Bool
gl_ATI_fragment_shader :: Bool
gl_ATI_fragment_shader = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_fragment_shader" Set String
extensions
{-# NOINLINE gl_ATI_fragment_shader #-}
glGetATIMapObjectBuffer :: MonadIO m => m Bool
glGetATIMapObjectBuffer :: m Bool
glGetATIMapObjectBuffer = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_map_object_buffer")
gl_ATI_map_object_buffer :: Bool
gl_ATI_map_object_buffer :: Bool
gl_ATI_map_object_buffer = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_map_object_buffer" Set String
extensions
{-# NOINLINE gl_ATI_map_object_buffer #-}
glGetATIMeminfo :: MonadIO m => m Bool
glGetATIMeminfo :: m Bool
glGetATIMeminfo = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_meminfo")
gl_ATI_meminfo :: Bool
gl_ATI_meminfo :: Bool
gl_ATI_meminfo = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_meminfo" Set String
extensions
{-# NOINLINE gl_ATI_meminfo #-}
glGetATIPixelFormatFloat :: MonadIO m => m Bool
glGetATIPixelFormatFloat :: m Bool
glGetATIPixelFormatFloat = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_pixel_format_float")
gl_ATI_pixel_format_float :: Bool
gl_ATI_pixel_format_float :: Bool
gl_ATI_pixel_format_float = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_pixel_format_float" Set String
extensions
{-# NOINLINE gl_ATI_pixel_format_float #-}
glGetATIPNTriangles :: MonadIO m => m Bool
glGetATIPNTriangles :: m Bool
glGetATIPNTriangles = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_pn_triangles")
gl_ATI_pn_triangles :: Bool
gl_ATI_pn_triangles :: Bool
gl_ATI_pn_triangles = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_pn_triangles" Set String
extensions
{-# NOINLINE gl_ATI_pn_triangles #-}
glGetATISeparateStencil :: MonadIO m => m Bool
glGetATISeparateStencil :: m Bool
glGetATISeparateStencil = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_separate_stencil")
gl_ATI_separate_stencil :: Bool
gl_ATI_separate_stencil :: Bool
gl_ATI_separate_stencil = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_separate_stencil" Set String
extensions
{-# NOINLINE gl_ATI_separate_stencil #-}
glGetATITextFragmentShader :: MonadIO m => m Bool
glGetATITextFragmentShader :: m Bool
glGetATITextFragmentShader = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_text_fragment_shader")
gl_ATI_text_fragment_shader :: Bool
gl_ATI_text_fragment_shader :: Bool
gl_ATI_text_fragment_shader = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_text_fragment_shader" Set String
extensions
{-# NOINLINE gl_ATI_text_fragment_shader #-}
glGetATITextureEnvCombine3 :: MonadIO m => m Bool
glGetATITextureEnvCombine3 :: m Bool
glGetATITextureEnvCombine3 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_texture_env_combine3")
gl_ATI_texture_env_combine3 :: Bool
gl_ATI_texture_env_combine3 :: Bool
gl_ATI_texture_env_combine3 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_texture_env_combine3" Set String
extensions
{-# NOINLINE gl_ATI_texture_env_combine3 #-}
glGetATITextureFloat :: MonadIO m => m Bool
glGetATITextureFloat :: m Bool
glGetATITextureFloat = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_texture_float")
gl_ATI_texture_float :: Bool
gl_ATI_texture_float :: Bool
gl_ATI_texture_float = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_texture_float" Set String
extensions
{-# NOINLINE gl_ATI_texture_float #-}
glGetATITextureMirrorOnce :: MonadIO m => m Bool
glGetATITextureMirrorOnce :: m Bool
glGetATITextureMirrorOnce = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_texture_mirror_once")
gl_ATI_texture_mirror_once :: Bool
gl_ATI_texture_mirror_once :: Bool
gl_ATI_texture_mirror_once = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_texture_mirror_once" Set String
extensions
{-# NOINLINE gl_ATI_texture_mirror_once #-}
glGetATIVertexArrayObject :: MonadIO m => m Bool
glGetATIVertexArrayObject :: m Bool
glGetATIVertexArrayObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_vertex_array_object")
gl_ATI_vertex_array_object :: Bool
gl_ATI_vertex_array_object :: Bool
gl_ATI_vertex_array_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_vertex_array_object" Set String
extensions
{-# NOINLINE gl_ATI_vertex_array_object #-}
glGetATIVertexAttribArrayObject :: MonadIO m => m Bool
glGetATIVertexAttribArrayObject :: m Bool
glGetATIVertexAttribArrayObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_vertex_attrib_array_object")
gl_ATI_vertex_attrib_array_object :: Bool
gl_ATI_vertex_attrib_array_object :: Bool
gl_ATI_vertex_attrib_array_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_vertex_attrib_array_object" Set String
extensions
{-# NOINLINE gl_ATI_vertex_attrib_array_object #-}
glGetATIVertexStreams :: MonadIO m => m Bool
glGetATIVertexStreams :: m Bool
glGetATIVertexStreams = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_vertex_streams")
gl_ATI_vertex_streams :: Bool
gl_ATI_vertex_streams :: Bool
gl_ATI_vertex_streams = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_ATI_vertex_streams" Set String
extensions
{-# NOINLINE gl_ATI_vertex_streams #-}
glGetEXTFourTwoTwoPixels :: MonadIO m => m Bool
glGetEXTFourTwoTwoPixels :: m Bool
glGetEXTFourTwoTwoPixels = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_422_pixels")
gl_EXT_422_pixels :: Bool
gl_EXT_422_pixels :: Bool
gl_EXT_422_pixels = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_422_pixels" Set String
extensions
{-# NOINLINE gl_EXT_422_pixels #-}
glGetEXTEglImageStorage :: MonadIO m => m Bool
glGetEXTEglImageStorage :: m Bool
glGetEXTEglImageStorage = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_EGL_image_storage")
gl_EXT_EGL_image_storage :: Bool
gl_EXT_EGL_image_storage :: Bool
gl_EXT_EGL_image_storage = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_EGL_image_storage" Set String
extensions
{-# NOINLINE gl_EXT_EGL_image_storage #-}
glGetEXTABGR :: MonadIO m => m Bool
glGetEXTABGR :: m Bool
glGetEXTABGR = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_abgr")
gl_EXT_abgr :: Bool
gl_EXT_abgr :: Bool
gl_EXT_abgr = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_abgr" Set String
extensions
{-# NOINLINE gl_EXT_abgr #-}
glGetEXTBGRA :: MonadIO m => m Bool
glGetEXTBGRA :: m Bool
glGetEXTBGRA = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_bgra")
gl_EXT_bgra :: Bool
gl_EXT_bgra :: Bool
gl_EXT_bgra = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_bgra" Set String
extensions
{-# NOINLINE gl_EXT_bgra #-}
glGetEXTBindableUniform :: MonadIO m => m Bool
glGetEXTBindableUniform :: m Bool
glGetEXTBindableUniform = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_bindable_uniform")
gl_EXT_bindable_uniform :: Bool
gl_EXT_bindable_uniform :: Bool
gl_EXT_bindable_uniform = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_bindable_uniform" Set String
extensions
{-# NOINLINE gl_EXT_bindable_uniform #-}
glGetEXTBlendColor :: MonadIO m => m Bool
glGetEXTBlendColor :: m Bool
glGetEXTBlendColor = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_blend_color")
gl_EXT_blend_color :: Bool
gl_EXT_blend_color :: Bool
gl_EXT_blend_color = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_blend_color" Set String
extensions
{-# NOINLINE gl_EXT_blend_color #-}
glGetEXTBlendEquationSeparate :: MonadIO m => m Bool
glGetEXTBlendEquationSeparate :: m Bool
glGetEXTBlendEquationSeparate = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_blend_equation_separate")
gl_EXT_blend_equation_separate :: Bool
gl_EXT_blend_equation_separate :: Bool
gl_EXT_blend_equation_separate = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_blend_equation_separate" Set String
extensions
{-# NOINLINE gl_EXT_blend_equation_separate #-}
glGetEXTBlendFuncSeparate :: MonadIO m => m Bool
glGetEXTBlendFuncSeparate :: m Bool
glGetEXTBlendFuncSeparate = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_blend_func_separate")
gl_EXT_blend_func_separate :: Bool
gl_EXT_blend_func_separate :: Bool
gl_EXT_blend_func_separate = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_blend_func_separate" Set String
extensions
{-# NOINLINE gl_EXT_blend_func_separate #-}
glGetEXTBlendMinmax :: MonadIO m => m Bool
glGetEXTBlendMinmax :: m Bool
glGetEXTBlendMinmax = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_blend_minmax")
gl_EXT_blend_minmax :: Bool
gl_EXT_blend_minmax :: Bool
gl_EXT_blend_minmax = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_blend_minmax" Set String
extensions
{-# NOINLINE gl_EXT_blend_minmax #-}
glGetEXTBlendSubtract :: MonadIO m => m Bool
glGetEXTBlendSubtract :: m Bool
glGetEXTBlendSubtract = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_blend_subtract")
gl_EXT_blend_subtract :: Bool
gl_EXT_blend_subtract :: Bool
gl_EXT_blend_subtract = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_blend_subtract" Set String
extensions
{-# NOINLINE gl_EXT_blend_subtract #-}
glGetEXTClipVolumeHint :: MonadIO m => m Bool
glGetEXTClipVolumeHint :: m Bool
glGetEXTClipVolumeHint = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_clip_volume_hint")
gl_EXT_clip_volume_hint :: Bool
gl_EXT_clip_volume_hint :: Bool
gl_EXT_clip_volume_hint = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_clip_volume_hint" Set String
extensions
{-# NOINLINE gl_EXT_clip_volume_hint #-}
glGetEXTCMYKA :: MonadIO m => m Bool
glGetEXTCMYKA :: m Bool
glGetEXTCMYKA = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_cmyka")
gl_EXT_cmyka :: Bool
gl_EXT_cmyka :: Bool
gl_EXT_cmyka = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_cmyka" Set String
extensions
{-# NOINLINE gl_EXT_cmyka #-}
glGetEXTColorSubtable :: MonadIO m => m Bool
glGetEXTColorSubtable :: m Bool
glGetEXTColorSubtable = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_color_subtable")
gl_EXT_color_subtable :: Bool
gl_EXT_color_subtable :: Bool
gl_EXT_color_subtable = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_color_subtable" Set String
extensions
{-# NOINLINE gl_EXT_color_subtable #-}
glGetEXTCompiledVertexArray :: MonadIO m => m Bool
glGetEXTCompiledVertexArray :: m Bool
glGetEXTCompiledVertexArray = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_compiled_vertex_array")
gl_EXT_compiled_vertex_array :: Bool
gl_EXT_compiled_vertex_array :: Bool
gl_EXT_compiled_vertex_array = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_compiled_vertex_array" Set String
extensions
{-# NOINLINE gl_EXT_compiled_vertex_array #-}
glGetEXTConvolution :: MonadIO m => m Bool
glGetEXTConvolution :: m Bool
glGetEXTConvolution = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_convolution")
gl_EXT_convolution :: Bool
gl_EXT_convolution :: Bool
gl_EXT_convolution = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_convolution" Set String
extensions
{-# NOINLINE gl_EXT_convolution #-}
glGetEXTCoordinateFrame :: MonadIO m => m Bool
glGetEXTCoordinateFrame :: m Bool
glGetEXTCoordinateFrame = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_coordinate_frame")
gl_EXT_coordinate_frame :: Bool
gl_EXT_coordinate_frame :: Bool
gl_EXT_coordinate_frame = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_coordinate_frame" Set String
extensions
{-# NOINLINE gl_EXT_coordinate_frame #-}
glGetEXTCopyTexture :: MonadIO m => m Bool
glGetEXTCopyTexture :: m Bool
glGetEXTCopyTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_copy_texture")
gl_EXT_copy_texture :: Bool
gl_EXT_copy_texture :: Bool
gl_EXT_copy_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_copy_texture" Set String
extensions
{-# NOINLINE gl_EXT_copy_texture #-}
glGetEXTCullVertex :: MonadIO m => m Bool
glGetEXTCullVertex :: m Bool
glGetEXTCullVertex = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_cull_vertex")
gl_EXT_cull_vertex :: Bool
gl_EXT_cull_vertex :: Bool
gl_EXT_cull_vertex = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_cull_vertex" Set String
extensions
{-# NOINLINE gl_EXT_cull_vertex #-}
glGetEXTDebugLabel :: MonadIO m => m Bool
glGetEXTDebugLabel :: m Bool
glGetEXTDebugLabel = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_debug_label")
gl_EXT_debug_label :: Bool
gl_EXT_debug_label :: Bool
gl_EXT_debug_label = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_debug_label" Set String
extensions
{-# NOINLINE gl_EXT_debug_label #-}
glGetEXTDebugMarker :: MonadIO m => m Bool
glGetEXTDebugMarker :: m Bool
glGetEXTDebugMarker = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_debug_marker")
gl_EXT_debug_marker :: Bool
gl_EXT_debug_marker :: Bool
gl_EXT_debug_marker = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_debug_marker" Set String
extensions
{-# NOINLINE gl_EXT_debug_marker #-}
glGetEXTDepthBoundsTest :: MonadIO m => m Bool
glGetEXTDepthBoundsTest :: m Bool
glGetEXTDepthBoundsTest = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_depth_bounds_test")
gl_EXT_depth_bounds_test :: Bool
gl_EXT_depth_bounds_test :: Bool
gl_EXT_depth_bounds_test = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_depth_bounds_test" Set String
extensions
{-# NOINLINE gl_EXT_depth_bounds_test #-}
glGetEXTDirectStateAccess :: MonadIO m => m Bool
glGetEXTDirectStateAccess :: m Bool
glGetEXTDirectStateAccess = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_direct_state_access")
gl_EXT_direct_state_access :: Bool
gl_EXT_direct_state_access :: Bool
gl_EXT_direct_state_access = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_direct_state_access" Set String
extensions
{-# NOINLINE gl_EXT_direct_state_access #-}
glGetEXTDrawBuffers2 :: MonadIO m => m Bool
glGetEXTDrawBuffers2 :: m Bool
glGetEXTDrawBuffers2 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_draw_buffers2")
gl_EXT_draw_buffers2 :: Bool
gl_EXT_draw_buffers2 :: Bool
gl_EXT_draw_buffers2 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_draw_buffers2" Set String
extensions
{-# NOINLINE gl_EXT_draw_buffers2 #-}
glGetEXTDrawInstanced :: MonadIO m => m Bool
glGetEXTDrawInstanced :: m Bool
glGetEXTDrawInstanced = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_draw_instanced")
gl_EXT_draw_instanced :: Bool
gl_EXT_draw_instanced :: Bool
gl_EXT_draw_instanced = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_draw_instanced" Set String
extensions
{-# NOINLINE gl_EXT_draw_instanced #-}
glGetEXTDrawRangeElements :: MonadIO m => m Bool
glGetEXTDrawRangeElements :: m Bool
glGetEXTDrawRangeElements = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_draw_range_elements")
gl_EXT_draw_range_elements :: Bool
gl_EXT_draw_range_elements :: Bool
gl_EXT_draw_range_elements = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_draw_range_elements" Set String
extensions
{-# NOINLINE gl_EXT_draw_range_elements #-}
glGetEXTExternalBuffer :: MonadIO m => m Bool
glGetEXTExternalBuffer :: m Bool
glGetEXTExternalBuffer = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_external_buffer")
gl_EXT_external_buffer :: Bool
gl_EXT_external_buffer :: Bool
gl_EXT_external_buffer = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_external_buffer" Set String
extensions
{-# NOINLINE gl_EXT_external_buffer #-}
glGetEXTFogCoord :: MonadIO m => m Bool
glGetEXTFogCoord :: m Bool
glGetEXTFogCoord = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_fog_coord")
gl_EXT_fog_coord :: Bool
gl_EXT_fog_coord :: Bool
gl_EXT_fog_coord = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_fog_coord" Set String
extensions
{-# NOINLINE gl_EXT_fog_coord #-}
glGetEXTFramebufferBlit :: MonadIO m => m Bool
glGetEXTFramebufferBlit :: m Bool
glGetEXTFramebufferBlit = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_framebuffer_blit")
gl_EXT_framebuffer_blit :: Bool
gl_EXT_framebuffer_blit :: Bool
gl_EXT_framebuffer_blit = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_framebuffer_blit" Set String
extensions
{-# NOINLINE gl_EXT_framebuffer_blit #-}
glGetEXTFramebufferMultisample :: MonadIO m => m Bool
glGetEXTFramebufferMultisample :: m Bool
glGetEXTFramebufferMultisample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_framebuffer_multisample")
gl_EXT_framebuffer_multisample :: Bool
gl_EXT_framebuffer_multisample :: Bool
gl_EXT_framebuffer_multisample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_framebuffer_multisample" Set String
extensions
{-# NOINLINE gl_EXT_framebuffer_multisample #-}
glGetEXTFramebufferMultisampleBlitScaled :: MonadIO m => m Bool
glGetEXTFramebufferMultisampleBlitScaled :: m Bool
glGetEXTFramebufferMultisampleBlitScaled = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_framebuffer_multisample_blit_scaled")
gl_EXT_framebuffer_multisample_blit_scaled :: Bool
gl_EXT_framebuffer_multisample_blit_scaled :: Bool
gl_EXT_framebuffer_multisample_blit_scaled = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_framebuffer_multisample_blit_scaled" Set String
extensions
{-# NOINLINE gl_EXT_framebuffer_multisample_blit_scaled #-}
glGetEXTFramebufferObject :: MonadIO m => m Bool
glGetEXTFramebufferObject :: m Bool
glGetEXTFramebufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_framebuffer_object")
gl_EXT_framebuffer_object :: Bool
gl_EXT_framebuffer_object :: Bool
gl_EXT_framebuffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_framebuffer_object" Set String
extensions
{-# NOINLINE gl_EXT_framebuffer_object #-}
glGetEXTFramebufferSRGB :: MonadIO m => m Bool
glGetEXTFramebufferSRGB :: m Bool
glGetEXTFramebufferSRGB = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_framebuffer_sRGB")
gl_EXT_framebuffer_sRGB :: Bool
gl_EXT_framebuffer_sRGB :: Bool
gl_EXT_framebuffer_sRGB = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_framebuffer_sRGB" Set String
extensions
{-# NOINLINE gl_EXT_framebuffer_sRGB #-}
glGetEXTGeometryShader4 :: MonadIO m => m Bool
glGetEXTGeometryShader4 :: m Bool
glGetEXTGeometryShader4 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_geometry_shader4")
gl_EXT_geometry_shader4 :: Bool
gl_EXT_geometry_shader4 :: Bool
gl_EXT_geometry_shader4 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_geometry_shader4" Set String
extensions
{-# NOINLINE gl_EXT_geometry_shader4 #-}
glGetEXTGPUProgramParameters :: MonadIO m => m Bool
glGetEXTGPUProgramParameters :: m Bool
glGetEXTGPUProgramParameters = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_gpu_program_parameters")
gl_EXT_gpu_program_parameters :: Bool
gl_EXT_gpu_program_parameters :: Bool
gl_EXT_gpu_program_parameters = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_gpu_program_parameters" Set String
extensions
{-# NOINLINE gl_EXT_gpu_program_parameters #-}
glGetEXTGPUShader4 :: MonadIO m => m Bool
glGetEXTGPUShader4 :: m Bool
glGetEXTGPUShader4 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_gpu_shader4")
gl_EXT_gpu_shader4 :: Bool
gl_EXT_gpu_shader4 :: Bool
gl_EXT_gpu_shader4 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_gpu_shader4" Set String
extensions
{-# NOINLINE gl_EXT_gpu_shader4 #-}
glGetEXTHistogram :: MonadIO m => m Bool
glGetEXTHistogram :: m Bool
glGetEXTHistogram = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_histogram")
gl_EXT_histogram :: Bool
gl_EXT_histogram :: Bool
gl_EXT_histogram = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_histogram" Set String
extensions
{-# NOINLINE gl_EXT_histogram #-}
glGetEXTIndexArrayFormats :: MonadIO m => m Bool
glGetEXTIndexArrayFormats :: m Bool
glGetEXTIndexArrayFormats = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_index_array_formats")
gl_EXT_index_array_formats :: Bool
gl_EXT_index_array_formats :: Bool
gl_EXT_index_array_formats = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_index_array_formats" Set String
extensions
{-# NOINLINE gl_EXT_index_array_formats #-}
glGetEXTIndexFunc :: MonadIO m => m Bool
glGetEXTIndexFunc :: m Bool
glGetEXTIndexFunc = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_index_func")
gl_EXT_index_func :: Bool
gl_EXT_index_func :: Bool
gl_EXT_index_func = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_index_func" Set String
extensions
{-# NOINLINE gl_EXT_index_func #-}
glGetEXTIndexMaterial :: MonadIO m => m Bool
glGetEXTIndexMaterial :: m Bool
glGetEXTIndexMaterial = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_index_material")
gl_EXT_index_material :: Bool
gl_EXT_index_material :: Bool
gl_EXT_index_material = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_index_material" Set String
extensions
{-# NOINLINE gl_EXT_index_material #-}
glGetEXTLightTexture :: MonadIO m => m Bool
glGetEXTLightTexture :: m Bool
glGetEXTLightTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_light_texture")
gl_EXT_light_texture :: Bool
gl_EXT_light_texture :: Bool
gl_EXT_light_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_light_texture" Set String
extensions
{-# NOINLINE gl_EXT_light_texture #-}
glGetEXTMemoryObject :: MonadIO m => m Bool
glGetEXTMemoryObject :: m Bool
glGetEXTMemoryObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_memory_object")
gl_EXT_memory_object :: Bool
gl_EXT_memory_object :: Bool
gl_EXT_memory_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_memory_object" Set String
extensions
{-# NOINLINE gl_EXT_memory_object #-}
glGetEXTMemoryObjectFd :: MonadIO m => m Bool
glGetEXTMemoryObjectFd :: m Bool
glGetEXTMemoryObjectFd = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_memory_object_fd")
gl_EXT_memory_object_fd :: Bool
gl_EXT_memory_object_fd :: Bool
gl_EXT_memory_object_fd = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_memory_object_fd" Set String
extensions
{-# NOINLINE gl_EXT_memory_object_fd #-}
glGetEXTMemoryObjectWin32 :: MonadIO m => m Bool
glGetEXTMemoryObjectWin32 :: m Bool
glGetEXTMemoryObjectWin32 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_memory_object_win32")
gl_EXT_memory_object_win32 :: Bool
gl_EXT_memory_object_win32 :: Bool
gl_EXT_memory_object_win32 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_memory_object_win32" Set String
extensions
{-# NOINLINE gl_EXT_memory_object_win32 #-}
glGetEXTMultiDrawArrays :: MonadIO m => m Bool
glGetEXTMultiDrawArrays :: m Bool
glGetEXTMultiDrawArrays = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_multi_draw_arrays")
gl_EXT_multi_draw_arrays :: Bool
gl_EXT_multi_draw_arrays :: Bool
gl_EXT_multi_draw_arrays = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_multi_draw_arrays" Set String
extensions
{-# NOINLINE gl_EXT_multi_draw_arrays #-}
glGetEXTMultisample :: MonadIO m => m Bool
glGetEXTMultisample :: m Bool
glGetEXTMultisample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_multisample")
gl_EXT_multisample :: Bool
gl_EXT_multisample :: Bool
gl_EXT_multisample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_multisample" Set String
extensions
{-# NOINLINE gl_EXT_multisample #-}
glGetEXTPackedDepthStencil :: MonadIO m => m Bool
glGetEXTPackedDepthStencil :: m Bool
glGetEXTPackedDepthStencil = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_packed_depth_stencil")
gl_EXT_packed_depth_stencil :: Bool
gl_EXT_packed_depth_stencil :: Bool
gl_EXT_packed_depth_stencil = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_packed_depth_stencil" Set String
extensions
{-# NOINLINE gl_EXT_packed_depth_stencil #-}
glGetEXTPackedFloat :: MonadIO m => m Bool
glGetEXTPackedFloat :: m Bool
glGetEXTPackedFloat = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_packed_float")
gl_EXT_packed_float :: Bool
gl_EXT_packed_float :: Bool
gl_EXT_packed_float = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_packed_float" Set String
extensions
{-# NOINLINE gl_EXT_packed_float #-}
glGetEXTPackedPixels :: MonadIO m => m Bool
glGetEXTPackedPixels :: m Bool
glGetEXTPackedPixels = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_packed_pixels")
gl_EXT_packed_pixels :: Bool
gl_EXT_packed_pixels :: Bool
gl_EXT_packed_pixels = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_packed_pixels" Set String
extensions
{-# NOINLINE gl_EXT_packed_pixels #-}
glGetEXTPalettedTexture :: MonadIO m => m Bool
glGetEXTPalettedTexture :: m Bool
glGetEXTPalettedTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_paletted_texture")
gl_EXT_paletted_texture :: Bool
gl_EXT_paletted_texture :: Bool
gl_EXT_paletted_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_paletted_texture" Set String
extensions
{-# NOINLINE gl_EXT_paletted_texture #-}
glGetEXTPixelBufferObject :: MonadIO m => m Bool
glGetEXTPixelBufferObject :: m Bool
glGetEXTPixelBufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_pixel_buffer_object")
gl_EXT_pixel_buffer_object :: Bool
gl_EXT_pixel_buffer_object :: Bool
gl_EXT_pixel_buffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_pixel_buffer_object" Set String
extensions
{-# NOINLINE gl_EXT_pixel_buffer_object #-}
glGetEXTPixelTransform :: MonadIO m => m Bool
glGetEXTPixelTransform :: m Bool
glGetEXTPixelTransform = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_pixel_transform")
gl_EXT_pixel_transform :: Bool
gl_EXT_pixel_transform :: Bool
gl_EXT_pixel_transform = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_pixel_transform" Set String
extensions
{-# NOINLINE gl_EXT_pixel_transform #-}
glGetEXTPointParameters :: MonadIO m => m Bool
glGetEXTPointParameters :: m Bool
glGetEXTPointParameters = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_point_parameters")
gl_EXT_point_parameters :: Bool
gl_EXT_point_parameters :: Bool
gl_EXT_point_parameters = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_point_parameters" Set String
extensions
{-# NOINLINE gl_EXT_point_parameters #-}
glGetEXTPolygonOffset :: MonadIO m => m Bool
glGetEXTPolygonOffset :: m Bool
glGetEXTPolygonOffset = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_polygon_offset")
gl_EXT_polygon_offset :: Bool
gl_EXT_polygon_offset :: Bool
gl_EXT_polygon_offset = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_polygon_offset" Set String
extensions
{-# NOINLINE gl_EXT_polygon_offset #-}
glGetEXTPolygonOffsetClamp :: MonadIO m => m Bool
glGetEXTPolygonOffsetClamp :: m Bool
glGetEXTPolygonOffsetClamp = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_polygon_offset_clamp")
gl_EXT_polygon_offset_clamp :: Bool
gl_EXT_polygon_offset_clamp :: Bool
gl_EXT_polygon_offset_clamp = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_polygon_offset_clamp" Set String
extensions
{-# NOINLINE gl_EXT_polygon_offset_clamp #-}
glGetEXTProvokingVertex :: MonadIO m => m Bool
glGetEXTProvokingVertex :: m Bool
glGetEXTProvokingVertex = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_provoking_vertex")
gl_EXT_provoking_vertex :: Bool
gl_EXT_provoking_vertex :: Bool
gl_EXT_provoking_vertex = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_provoking_vertex" Set String
extensions
{-# NOINLINE gl_EXT_provoking_vertex #-}
glGetEXTRasterMultisample :: MonadIO m => m Bool
= m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_raster_multisample")
gl_EXT_raster_multisample :: Bool
gl_EXT_raster_multisample :: Bool
gl_EXT_raster_multisample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_raster_multisample" Set String
extensions
{-# NOINLINE gl_EXT_raster_multisample #-}
glGetEXTRescaleNormal :: MonadIO m => m Bool
glGetEXTRescaleNormal :: m Bool
glGetEXTRescaleNormal = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_rescale_normal")
gl_EXT_rescale_normal :: Bool
gl_EXT_rescale_normal :: Bool
gl_EXT_rescale_normal = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_rescale_normal" Set String
extensions
{-# NOINLINE gl_EXT_rescale_normal #-}
glGetEXTSecondaryColor :: MonadIO m => m Bool
glGetEXTSecondaryColor :: m Bool
glGetEXTSecondaryColor = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_secondary_color")
gl_EXT_secondary_color :: Bool
gl_EXT_secondary_color :: Bool
gl_EXT_secondary_color = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_secondary_color" Set String
extensions
{-# NOINLINE gl_EXT_secondary_color #-}
glGetEXTSemaphore :: MonadIO m => m Bool
glGetEXTSemaphore :: m Bool
glGetEXTSemaphore = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_semaphore")
gl_EXT_semaphore :: Bool
gl_EXT_semaphore :: Bool
gl_EXT_semaphore = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_semaphore" Set String
extensions
{-# NOINLINE gl_EXT_semaphore #-}
glGetEXTSemaphoreFd :: MonadIO m => m Bool
glGetEXTSemaphoreFd :: m Bool
glGetEXTSemaphoreFd = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_semaphore_fd")
gl_EXT_semaphore_fd :: Bool
gl_EXT_semaphore_fd :: Bool
gl_EXT_semaphore_fd = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_semaphore_fd" Set String
extensions
{-# NOINLINE gl_EXT_semaphore_fd #-}
glGetEXTSemaphoreWin32 :: MonadIO m => m Bool
glGetEXTSemaphoreWin32 :: m Bool
glGetEXTSemaphoreWin32 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_semaphore_win32")
gl_EXT_semaphore_win32 :: Bool
gl_EXT_semaphore_win32 :: Bool
gl_EXT_semaphore_win32 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_semaphore_win32" Set String
extensions
{-# NOINLINE gl_EXT_semaphore_win32 #-}
glGetEXTSeparateShaderObjects :: MonadIO m => m Bool
glGetEXTSeparateShaderObjects :: m Bool
glGetEXTSeparateShaderObjects = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_separate_shader_objects")
gl_EXT_separate_shader_objects :: Bool
gl_EXT_separate_shader_objects :: Bool
gl_EXT_separate_shader_objects = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_separate_shader_objects" Set String
extensions
{-# NOINLINE gl_EXT_separate_shader_objects #-}
glGetEXTSeparateSpecularColor :: MonadIO m => m Bool
glGetEXTSeparateSpecularColor :: m Bool
glGetEXTSeparateSpecularColor = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_separate_specular_color")
gl_EXT_separate_specular_color :: Bool
gl_EXT_separate_specular_color :: Bool
gl_EXT_separate_specular_color = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_separate_specular_color" Set String
extensions
{-# NOINLINE gl_EXT_separate_specular_color #-}
glGetEXTShaderFramebufferFetch :: MonadIO m => m Bool
glGetEXTShaderFramebufferFetch :: m Bool
glGetEXTShaderFramebufferFetch = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_shader_framebuffer_fetch")
gl_EXT_shader_framebuffer_fetch :: Bool
gl_EXT_shader_framebuffer_fetch :: Bool
gl_EXT_shader_framebuffer_fetch = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_shader_framebuffer_fetch" Set String
extensions
{-# NOINLINE gl_EXT_shader_framebuffer_fetch #-}
glGetEXTShaderFramebufferFetchNonCoherent :: MonadIO m => m Bool
glGetEXTShaderFramebufferFetchNonCoherent :: m Bool
glGetEXTShaderFramebufferFetchNonCoherent = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_shader_framebuffer_fetch_non_coherent")
gl_EXT_shader_framebuffer_fetch_non_coherent :: Bool
gl_EXT_shader_framebuffer_fetch_non_coherent :: Bool
gl_EXT_shader_framebuffer_fetch_non_coherent = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_shader_framebuffer_fetch_non_coherent" Set String
extensions
{-# NOINLINE gl_EXT_shader_framebuffer_fetch_non_coherent #-}
glGetEXTShaderImageLoadStore :: MonadIO m => m Bool
glGetEXTShaderImageLoadStore :: m Bool
glGetEXTShaderImageLoadStore = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_shader_image_load_store")
gl_EXT_shader_image_load_store :: Bool
gl_EXT_shader_image_load_store :: Bool
gl_EXT_shader_image_load_store = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_shader_image_load_store" Set String
extensions
{-# NOINLINE gl_EXT_shader_image_load_store #-}
glGetEXTSharedTexturePalette :: MonadIO m => m Bool
glGetEXTSharedTexturePalette :: m Bool
glGetEXTSharedTexturePalette = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_shared_texture_palette")
gl_EXT_shared_texture_palette :: Bool
gl_EXT_shared_texture_palette :: Bool
gl_EXT_shared_texture_palette = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_shared_texture_palette" Set String
extensions
{-# NOINLINE gl_EXT_shared_texture_palette #-}
glGetEXTStencilClearTag :: MonadIO m => m Bool
glGetEXTStencilClearTag :: m Bool
glGetEXTStencilClearTag = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_stencil_clear_tag")
gl_EXT_stencil_clear_tag :: Bool
gl_EXT_stencil_clear_tag :: Bool
gl_EXT_stencil_clear_tag = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_stencil_clear_tag" Set String
extensions
{-# NOINLINE gl_EXT_stencil_clear_tag #-}
glGetEXTStencilTwoSide :: MonadIO m => m Bool
glGetEXTStencilTwoSide :: m Bool
glGetEXTStencilTwoSide = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_stencil_two_side")
gl_EXT_stencil_two_side :: Bool
gl_EXT_stencil_two_side :: Bool
gl_EXT_stencil_two_side = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_stencil_two_side" Set String
extensions
{-# NOINLINE gl_EXT_stencil_two_side #-}
glGetEXTStencilWrap :: MonadIO m => m Bool
glGetEXTStencilWrap :: m Bool
glGetEXTStencilWrap = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_stencil_wrap")
gl_EXT_stencil_wrap :: Bool
gl_EXT_stencil_wrap :: Bool
gl_EXT_stencil_wrap = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_stencil_wrap" Set String
extensions
{-# NOINLINE gl_EXT_stencil_wrap #-}
glGetEXTSubtexture :: MonadIO m => m Bool
glGetEXTSubtexture :: m Bool
glGetEXTSubtexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_subtexture")
gl_EXT_subtexture :: Bool
gl_EXT_subtexture :: Bool
gl_EXT_subtexture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_subtexture" Set String
extensions
{-# NOINLINE gl_EXT_subtexture #-}
glGetEXTTexture :: MonadIO m => m Bool
glGetEXTTexture :: m Bool
glGetEXTTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture")
gl_EXT_texture :: Bool
gl_EXT_texture :: Bool
gl_EXT_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture" Set String
extensions
{-# NOINLINE gl_EXT_texture #-}
glGetEXTTexture3D :: MonadIO m => m Bool
glGetEXTTexture3D :: m Bool
glGetEXTTexture3D = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture3D")
gl_EXT_texture3D :: Bool
gl_EXT_texture3D :: Bool
gl_EXT_texture3D = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture3D" Set String
extensions
{-# NOINLINE gl_EXT_texture3D #-}
glGetEXTTextureArray :: MonadIO m => m Bool
glGetEXTTextureArray :: m Bool
glGetEXTTextureArray = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_array")
gl_EXT_texture_array :: Bool
gl_EXT_texture_array :: Bool
gl_EXT_texture_array = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_array" Set String
extensions
{-# NOINLINE gl_EXT_texture_array #-}
glGetEXTTextureBufferObject :: MonadIO m => m Bool
glGetEXTTextureBufferObject :: m Bool
glGetEXTTextureBufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_buffer_object")
gl_EXT_texture_buffer_object :: Bool
gl_EXT_texture_buffer_object :: Bool
gl_EXT_texture_buffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_buffer_object" Set String
extensions
{-# NOINLINE gl_EXT_texture_buffer_object #-}
glGetEXTTextureCompressionLATC :: MonadIO m => m Bool
glGetEXTTextureCompressionLATC :: m Bool
glGetEXTTextureCompressionLATC = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_compression_latc")
gl_EXT_texture_compression_latc :: Bool
gl_EXT_texture_compression_latc :: Bool
gl_EXT_texture_compression_latc = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_compression_latc" Set String
extensions
{-# NOINLINE gl_EXT_texture_compression_latc #-}
glGetEXTTextureCompressionRGTC :: MonadIO m => m Bool
glGetEXTTextureCompressionRGTC :: m Bool
glGetEXTTextureCompressionRGTC = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_compression_rgtc")
gl_EXT_texture_compression_rgtc :: Bool
gl_EXT_texture_compression_rgtc :: Bool
gl_EXT_texture_compression_rgtc = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_compression_rgtc" Set String
extensions
{-# NOINLINE gl_EXT_texture_compression_rgtc #-}
glGetEXTTextureCompressionS3TC :: MonadIO m => m Bool
glGetEXTTextureCompressionS3TC :: m Bool
glGetEXTTextureCompressionS3TC = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_compression_s3tc")
gl_EXT_texture_compression_s3tc :: Bool
gl_EXT_texture_compression_s3tc :: Bool
gl_EXT_texture_compression_s3tc = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_compression_s3tc" Set String
extensions
{-# NOINLINE gl_EXT_texture_compression_s3tc #-}
glGetEXTTextureCubeMap :: MonadIO m => m Bool
glGetEXTTextureCubeMap :: m Bool
glGetEXTTextureCubeMap = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_cube_map")
gl_EXT_texture_cube_map :: Bool
gl_EXT_texture_cube_map :: Bool
gl_EXT_texture_cube_map = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_cube_map" Set String
extensions
{-# NOINLINE gl_EXT_texture_cube_map #-}
glGetEXTTextureEnvCombine :: MonadIO m => m Bool
glGetEXTTextureEnvCombine :: m Bool
glGetEXTTextureEnvCombine = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_env_combine")
gl_EXT_texture_env_combine :: Bool
gl_EXT_texture_env_combine :: Bool
gl_EXT_texture_env_combine = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_env_combine" Set String
extensions
{-# NOINLINE gl_EXT_texture_env_combine #-}
glGetEXTTextureEnvDot3 :: MonadIO m => m Bool
glGetEXTTextureEnvDot3 :: m Bool
glGetEXTTextureEnvDot3 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_env_dot3")
gl_EXT_texture_env_dot3 :: Bool
gl_EXT_texture_env_dot3 :: Bool
gl_EXT_texture_env_dot3 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_env_dot3" Set String
extensions
{-# NOINLINE gl_EXT_texture_env_dot3 #-}
glGetEXTTextureFilterAnisotropic :: MonadIO m => m Bool
glGetEXTTextureFilterAnisotropic :: m Bool
glGetEXTTextureFilterAnisotropic = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_filter_anisotropic")
gl_EXT_texture_filter_anisotropic :: Bool
gl_EXT_texture_filter_anisotropic :: Bool
gl_EXT_texture_filter_anisotropic = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_filter_anisotropic" Set String
extensions
{-# NOINLINE gl_EXT_texture_filter_anisotropic #-}
glGetEXTTextureFilterMinmax :: MonadIO m => m Bool
glGetEXTTextureFilterMinmax :: m Bool
glGetEXTTextureFilterMinmax = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_filter_minmax")
gl_EXT_texture_filter_minmax :: Bool
gl_EXT_texture_filter_minmax :: Bool
gl_EXT_texture_filter_minmax = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_filter_minmax" Set String
extensions
{-# NOINLINE gl_EXT_texture_filter_minmax #-}
glGetEXTTextureInteger :: MonadIO m => m Bool
glGetEXTTextureInteger :: m Bool
glGetEXTTextureInteger = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_integer")
gl_EXT_texture_integer :: Bool
gl_EXT_texture_integer :: Bool
gl_EXT_texture_integer = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_integer" Set String
extensions
{-# NOINLINE gl_EXT_texture_integer #-}
glGetEXTTextureLODBias :: MonadIO m => m Bool
glGetEXTTextureLODBias :: m Bool
glGetEXTTextureLODBias = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_lod_bias")
gl_EXT_texture_lod_bias :: Bool
gl_EXT_texture_lod_bias :: Bool
gl_EXT_texture_lod_bias = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_lod_bias" Set String
extensions
{-# NOINLINE gl_EXT_texture_lod_bias #-}
glGetEXTTextureMirrorClamp :: MonadIO m => m Bool
glGetEXTTextureMirrorClamp :: m Bool
glGetEXTTextureMirrorClamp = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_mirror_clamp")
gl_EXT_texture_mirror_clamp :: Bool
gl_EXT_texture_mirror_clamp :: Bool
gl_EXT_texture_mirror_clamp = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_mirror_clamp" Set String
extensions
{-# NOINLINE gl_EXT_texture_mirror_clamp #-}
glGetEXTTextureObject :: MonadIO m => m Bool
glGetEXTTextureObject :: m Bool
glGetEXTTextureObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_object")
gl_EXT_texture_object :: Bool
gl_EXT_texture_object :: Bool
gl_EXT_texture_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_object" Set String
extensions
{-# NOINLINE gl_EXT_texture_object #-}
glGetEXTTexturePerturbNormal :: MonadIO m => m Bool
glGetEXTTexturePerturbNormal :: m Bool
glGetEXTTexturePerturbNormal = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_perturb_normal")
gl_EXT_texture_perturb_normal :: Bool
gl_EXT_texture_perturb_normal :: Bool
gl_EXT_texture_perturb_normal = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_perturb_normal" Set String
extensions
{-# NOINLINE gl_EXT_texture_perturb_normal #-}
glGetEXTTextureSRGB :: MonadIO m => m Bool
glGetEXTTextureSRGB :: m Bool
glGetEXTTextureSRGB = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_sRGB")
gl_EXT_texture_sRGB :: Bool
gl_EXT_texture_sRGB :: Bool
gl_EXT_texture_sRGB = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_sRGB" Set String
extensions
{-# NOINLINE gl_EXT_texture_sRGB #-}
glGetEXTTextureSRGBR8 :: MonadIO m => m Bool
glGetEXTTextureSRGBR8 :: m Bool
glGetEXTTextureSRGBR8 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_sRGB_R8")
gl_EXT_texture_sRGB_R8 :: Bool
gl_EXT_texture_sRGB_R8 :: Bool
gl_EXT_texture_sRGB_R8 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_sRGB_R8" Set String
extensions
{-# NOINLINE gl_EXT_texture_sRGB_R8 #-}
glGetEXTTextureSRGBDecode :: MonadIO m => m Bool
glGetEXTTextureSRGBDecode :: m Bool
glGetEXTTextureSRGBDecode = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_sRGB_decode")
gl_EXT_texture_sRGB_decode :: Bool
gl_EXT_texture_sRGB_decode :: Bool
gl_EXT_texture_sRGB_decode = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_sRGB_decode" Set String
extensions
{-# NOINLINE gl_EXT_texture_sRGB_decode #-}
glGetEXTTextureSharedExponent :: MonadIO m => m Bool
glGetEXTTextureSharedExponent :: m Bool
glGetEXTTextureSharedExponent = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_shared_exponent")
gl_EXT_texture_shared_exponent :: Bool
gl_EXT_texture_shared_exponent :: Bool
gl_EXT_texture_shared_exponent = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_shared_exponent" Set String
extensions
{-# NOINLINE gl_EXT_texture_shared_exponent #-}
glGetEXTTextureSNorm :: MonadIO m => m Bool
glGetEXTTextureSNorm :: m Bool
glGetEXTTextureSNorm = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_snorm")
gl_EXT_texture_snorm :: Bool
gl_EXT_texture_snorm :: Bool
gl_EXT_texture_snorm = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_snorm" Set String
extensions
{-# NOINLINE gl_EXT_texture_snorm #-}
glGetEXTTextureSwizzle :: MonadIO m => m Bool
glGetEXTTextureSwizzle :: m Bool
glGetEXTTextureSwizzle = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_swizzle")
gl_EXT_texture_swizzle :: Bool
gl_EXT_texture_swizzle :: Bool
gl_EXT_texture_swizzle = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_texture_swizzle" Set String
extensions
{-# NOINLINE gl_EXT_texture_swizzle #-}
glGetEXTTimerQuery :: MonadIO m => m Bool
glGetEXTTimerQuery :: m Bool
glGetEXTTimerQuery = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_timer_query")
gl_EXT_timer_query :: Bool
gl_EXT_timer_query :: Bool
gl_EXT_timer_query = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_timer_query" Set String
extensions
{-# NOINLINE gl_EXT_timer_query #-}
glGetEXTTransformFeedback :: MonadIO m => m Bool
glGetEXTTransformFeedback :: m Bool
glGetEXTTransformFeedback = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_transform_feedback")
gl_EXT_transform_feedback :: Bool
gl_EXT_transform_feedback :: Bool
gl_EXT_transform_feedback = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_transform_feedback" Set String
extensions
{-# NOINLINE gl_EXT_transform_feedback #-}
glGetEXTVertexArray :: MonadIO m => m Bool
glGetEXTVertexArray :: m Bool
glGetEXTVertexArray = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_vertex_array")
gl_EXT_vertex_array :: Bool
gl_EXT_vertex_array :: Bool
gl_EXT_vertex_array = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_vertex_array" Set String
extensions
{-# NOINLINE gl_EXT_vertex_array #-}
glGetEXTVertexArrayBGRA :: MonadIO m => m Bool
glGetEXTVertexArrayBGRA :: m Bool
glGetEXTVertexArrayBGRA = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_vertex_array_bgra")
gl_EXT_vertex_array_bgra :: Bool
gl_EXT_vertex_array_bgra :: Bool
gl_EXT_vertex_array_bgra = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_vertex_array_bgra" Set String
extensions
{-# NOINLINE gl_EXT_vertex_array_bgra #-}
glGetEXTVertexAttrib64Bit :: MonadIO m => m Bool
glGetEXTVertexAttrib64Bit :: m Bool
glGetEXTVertexAttrib64Bit = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_vertex_attrib_64bit")
gl_EXT_vertex_attrib_64bit :: Bool
gl_EXT_vertex_attrib_64bit :: Bool
gl_EXT_vertex_attrib_64bit = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_vertex_attrib_64bit" Set String
extensions
{-# NOINLINE gl_EXT_vertex_attrib_64bit #-}
glGetEXTVertexShader :: MonadIO m => m Bool
glGetEXTVertexShader :: m Bool
glGetEXTVertexShader = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_vertex_shader")
gl_EXT_vertex_shader :: Bool
gl_EXT_vertex_shader :: Bool
gl_EXT_vertex_shader = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_vertex_shader" Set String
extensions
{-# NOINLINE gl_EXT_vertex_shader #-}
glGetEXTVertexWeighting :: MonadIO m => m Bool
glGetEXTVertexWeighting :: m Bool
glGetEXTVertexWeighting = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_vertex_weighting")
gl_EXT_vertex_weighting :: Bool
gl_EXT_vertex_weighting :: Bool
gl_EXT_vertex_weighting = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_vertex_weighting" Set String
extensions
{-# NOINLINE gl_EXT_vertex_weighting #-}
glGetEXTWin32KeyedMutex :: MonadIO m => m Bool
glGetEXTWin32KeyedMutex :: m Bool
glGetEXTWin32KeyedMutex = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_win32_keyed_mutex")
gl_EXT_win32_keyed_mutex :: Bool
gl_EXT_win32_keyed_mutex :: Bool
gl_EXT_win32_keyed_mutex = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_win32_keyed_mutex" Set String
extensions
{-# NOINLINE gl_EXT_win32_keyed_mutex #-}
glGetEXTWindowRectangles :: MonadIO m => m Bool
glGetEXTWindowRectangles :: m Bool
glGetEXTWindowRectangles = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_window_rectangles")
gl_EXT_window_rectangles :: Bool
gl_EXT_window_rectangles :: Bool
gl_EXT_window_rectangles = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_window_rectangles" Set String
extensions
{-# NOINLINE gl_EXT_window_rectangles #-}
glGetEXTX11SyncObject :: MonadIO m => m Bool
glGetEXTX11SyncObject :: m Bool
glGetEXTX11SyncObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_x11_sync_object")
gl_EXT_x11_sync_object :: Bool
gl_EXT_x11_sync_object :: Bool
gl_EXT_x11_sync_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_EXT_x11_sync_object" Set String
extensions
{-# NOINLINE gl_EXT_x11_sync_object #-}
glGetGREMEDYFrameTerminator :: MonadIO m => m Bool
glGetGREMEDYFrameTerminator :: m Bool
glGetGREMEDYFrameTerminator = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_GREMEDY_frame_terminator")
gl_GREMEDY_frame_terminator :: Bool
gl_GREMEDY_frame_terminator :: Bool
gl_GREMEDY_frame_terminator = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_GREMEDY_frame_terminator" Set String
extensions
{-# NOINLINE gl_GREMEDY_frame_terminator #-}
glGetGREMEDYStringMarker :: MonadIO m => m Bool
glGetGREMEDYStringMarker :: m Bool
glGetGREMEDYStringMarker = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_GREMEDY_string_marker")
gl_GREMEDY_string_marker :: Bool
gl_GREMEDY_string_marker :: Bool
gl_GREMEDY_string_marker = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_GREMEDY_string_marker" Set String
extensions
{-# NOINLINE gl_GREMEDY_string_marker #-}
glGetHPConvolutionBorderModes :: MonadIO m => m Bool
glGetHPConvolutionBorderModes :: m Bool
glGetHPConvolutionBorderModes = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_HP_convolution_border_modes")
gl_HP_convolution_border_modes :: Bool
gl_HP_convolution_border_modes :: Bool
gl_HP_convolution_border_modes = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_HP_convolution_border_modes" Set String
extensions
{-# NOINLINE gl_HP_convolution_border_modes #-}
glGetHPImageTransform :: MonadIO m => m Bool
glGetHPImageTransform :: m Bool
glGetHPImageTransform = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_HP_image_transform")
gl_HP_image_transform :: Bool
gl_HP_image_transform :: Bool
gl_HP_image_transform = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_HP_image_transform" Set String
extensions
{-# NOINLINE gl_HP_image_transform #-}
glGetHPOcclusionTest :: MonadIO m => m Bool
glGetHPOcclusionTest :: m Bool
glGetHPOcclusionTest = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_HP_occlusion_test")
gl_HP_occlusion_test :: Bool
gl_HP_occlusion_test :: Bool
gl_HP_occlusion_test = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_HP_occlusion_test" Set String
extensions
{-# NOINLINE gl_HP_occlusion_test #-}
glGetHPTextureLighting :: MonadIO m => m Bool
glGetHPTextureLighting :: m Bool
glGetHPTextureLighting = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_HP_texture_lighting")
gl_HP_texture_lighting :: Bool
gl_HP_texture_lighting :: Bool
gl_HP_texture_lighting = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_HP_texture_lighting" Set String
extensions
{-# NOINLINE gl_HP_texture_lighting #-}
glGetIBMCullVertex :: MonadIO m => m Bool
glGetIBMCullVertex :: m Bool
glGetIBMCullVertex = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_cull_vertex")
gl_IBM_cull_vertex :: Bool
gl_IBM_cull_vertex :: Bool
gl_IBM_cull_vertex = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_cull_vertex" Set String
extensions
{-# NOINLINE gl_IBM_cull_vertex #-}
glGetIBMMultimodeDrawArrays :: MonadIO m => m Bool
glGetIBMMultimodeDrawArrays :: m Bool
glGetIBMMultimodeDrawArrays = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_multimode_draw_arrays")
gl_IBM_multimode_draw_arrays :: Bool
gl_IBM_multimode_draw_arrays :: Bool
gl_IBM_multimode_draw_arrays = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_multimode_draw_arrays" Set String
extensions
{-# NOINLINE gl_IBM_multimode_draw_arrays #-}
glGetIBMRasterposClip :: MonadIO m => m Bool
glGetIBMRasterposClip :: m Bool
glGetIBMRasterposClip = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_rasterpos_clip")
gl_IBM_rasterpos_clip :: Bool
gl_IBM_rasterpos_clip :: Bool
gl_IBM_rasterpos_clip = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_rasterpos_clip" Set String
extensions
{-# NOINLINE gl_IBM_rasterpos_clip #-}
glGetIBMStaticData :: MonadIO m => m Bool
glGetIBMStaticData :: m Bool
glGetIBMStaticData = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_static_data")
gl_IBM_static_data :: Bool
gl_IBM_static_data :: Bool
gl_IBM_static_data = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_static_data" Set String
extensions
{-# NOINLINE gl_IBM_static_data #-}
glGetIBMTextureMirroredRepeat :: MonadIO m => m Bool
glGetIBMTextureMirroredRepeat :: m Bool
glGetIBMTextureMirroredRepeat = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_texture_mirrored_repeat")
gl_IBM_texture_mirrored_repeat :: Bool
gl_IBM_texture_mirrored_repeat :: Bool
gl_IBM_texture_mirrored_repeat = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_texture_mirrored_repeat" Set String
extensions
{-# NOINLINE gl_IBM_texture_mirrored_repeat #-}
glGetIBMVertexArrayLists :: MonadIO m => m Bool
glGetIBMVertexArrayLists :: m Bool
glGetIBMVertexArrayLists = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_vertex_array_lists")
gl_IBM_vertex_array_lists :: Bool
gl_IBM_vertex_array_lists :: Bool
gl_IBM_vertex_array_lists = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_IBM_vertex_array_lists" Set String
extensions
{-# NOINLINE gl_IBM_vertex_array_lists #-}
glGetINGRBlendFuncSeparate :: MonadIO m => m Bool
glGetINGRBlendFuncSeparate :: m Bool
glGetINGRBlendFuncSeparate = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INGR_blend_func_separate")
gl_INGR_blend_func_separate :: Bool
gl_INGR_blend_func_separate :: Bool
gl_INGR_blend_func_separate = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INGR_blend_func_separate" Set String
extensions
{-# NOINLINE gl_INGR_blend_func_separate #-}
glGetINGRColorClamp :: MonadIO m => m Bool
glGetINGRColorClamp :: m Bool
glGetINGRColorClamp = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INGR_color_clamp")
gl_INGR_color_clamp :: Bool
gl_INGR_color_clamp :: Bool
gl_INGR_color_clamp = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INGR_color_clamp" Set String
extensions
{-# NOINLINE gl_INGR_color_clamp #-}
glGetINGRInterlaceRead :: MonadIO m => m Bool
glGetINGRInterlaceRead :: m Bool
glGetINGRInterlaceRead = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INGR_interlace_read")
gl_INGR_interlace_read :: Bool
gl_INGR_interlace_read :: Bool
gl_INGR_interlace_read = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INGR_interlace_read" Set String
extensions
{-# NOINLINE gl_INGR_interlace_read #-}
glGetINTELBlackholeRender :: MonadIO m => m Bool
glGetINTELBlackholeRender :: m Bool
glGetINTELBlackholeRender = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INTEL_blackhole_render")
gl_INTEL_blackhole_render :: Bool
gl_INTEL_blackhole_render :: Bool
gl_INTEL_blackhole_render = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INTEL_blackhole_render" Set String
extensions
{-# NOINLINE gl_INTEL_blackhole_render #-}
glGetINTELConservativeRasterization :: MonadIO m => m Bool
glGetINTELConservativeRasterization :: m Bool
glGetINTELConservativeRasterization = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INTEL_conservative_rasterization")
gl_INTEL_conservative_rasterization :: Bool
gl_INTEL_conservative_rasterization :: Bool
gl_INTEL_conservative_rasterization = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INTEL_conservative_rasterization" Set String
extensions
{-# NOINLINE gl_INTEL_conservative_rasterization #-}
glGetINTELFramebufferCmaa :: MonadIO m => m Bool
glGetINTELFramebufferCmaa :: m Bool
glGetINTELFramebufferCmaa = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INTEL_framebuffer_CMAA")
gl_INTEL_framebuffer_CMAA :: Bool
gl_INTEL_framebuffer_CMAA :: Bool
gl_INTEL_framebuffer_CMAA = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INTEL_framebuffer_CMAA" Set String
extensions
{-# NOINLINE gl_INTEL_framebuffer_CMAA #-}
glGetINTELMapTexture :: MonadIO m => m Bool
glGetINTELMapTexture :: m Bool
glGetINTELMapTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INTEL_map_texture")
gl_INTEL_map_texture :: Bool
gl_INTEL_map_texture :: Bool
gl_INTEL_map_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INTEL_map_texture" Set String
extensions
{-# NOINLINE gl_INTEL_map_texture #-}
glGetINTELParallelArrays :: MonadIO m => m Bool
glGetINTELParallelArrays :: m Bool
glGetINTELParallelArrays = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INTEL_parallel_arrays")
gl_INTEL_parallel_arrays :: Bool
gl_INTEL_parallel_arrays :: Bool
gl_INTEL_parallel_arrays = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INTEL_parallel_arrays" Set String
extensions
{-# NOINLINE gl_INTEL_parallel_arrays #-}
glGetINTELPerformanceQuery :: MonadIO m => m Bool
glGetINTELPerformanceQuery :: m Bool
glGetINTELPerformanceQuery = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INTEL_performance_query")
gl_INTEL_performance_query :: Bool
gl_INTEL_performance_query :: Bool
gl_INTEL_performance_query = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_INTEL_performance_query" Set String
extensions
{-# NOINLINE gl_INTEL_performance_query #-}
glGetKHRBlendEquationAdvanced :: MonadIO m => m Bool
glGetKHRBlendEquationAdvanced :: m Bool
glGetKHRBlendEquationAdvanced = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_blend_equation_advanced")
gl_KHR_blend_equation_advanced :: Bool
gl_KHR_blend_equation_advanced :: Bool
gl_KHR_blend_equation_advanced = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_blend_equation_advanced" Set String
extensions
{-# NOINLINE gl_KHR_blend_equation_advanced #-}
glGetKHRBlendEquationAdvancedCoherent :: MonadIO m => m Bool
glGetKHRBlendEquationAdvancedCoherent :: m Bool
glGetKHRBlendEquationAdvancedCoherent = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_blend_equation_advanced_coherent")
gl_KHR_blend_equation_advanced_coherent :: Bool
gl_KHR_blend_equation_advanced_coherent :: Bool
gl_KHR_blend_equation_advanced_coherent = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_blend_equation_advanced_coherent" Set String
extensions
{-# NOINLINE gl_KHR_blend_equation_advanced_coherent #-}
glGetKHRContextFlushControl :: MonadIO m => m Bool
glGetKHRContextFlushControl :: m Bool
glGetKHRContextFlushControl = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_context_flush_control")
gl_KHR_context_flush_control :: Bool
gl_KHR_context_flush_control :: Bool
gl_KHR_context_flush_control = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_context_flush_control" Set String
extensions
{-# NOINLINE gl_KHR_context_flush_control #-}
glGetKHRDebug :: MonadIO m => m Bool
glGetKHRDebug :: m Bool
glGetKHRDebug = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_debug")
gl_KHR_debug :: Bool
gl_KHR_debug :: Bool
gl_KHR_debug = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_debug" Set String
extensions
{-# NOINLINE gl_KHR_debug #-}
glGetKHRNoError :: MonadIO m => m Bool
glGetKHRNoError :: m Bool
glGetKHRNoError = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_no_error")
gl_KHR_no_error :: Bool
gl_KHR_no_error :: Bool
gl_KHR_no_error = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_no_error" Set String
extensions
{-# NOINLINE gl_KHR_no_error #-}
glGetKHRParallelShaderCompile :: MonadIO m => m Bool
glGetKHRParallelShaderCompile :: m Bool
glGetKHRParallelShaderCompile = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_parallel_shader_compile")
gl_KHR_parallel_shader_compile :: Bool
gl_KHR_parallel_shader_compile :: Bool
gl_KHR_parallel_shader_compile = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_parallel_shader_compile" Set String
extensions
{-# NOINLINE gl_KHR_parallel_shader_compile #-}
glGetKHRRobustness :: MonadIO m => m Bool
glGetKHRRobustness :: m Bool
glGetKHRRobustness = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_robustness")
gl_KHR_robustness :: Bool
gl_KHR_robustness :: Bool
gl_KHR_robustness = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_robustness" Set String
extensions
{-# NOINLINE gl_KHR_robustness #-}
glGetKHRShaderSubgroup :: MonadIO m => m Bool
glGetKHRShaderSubgroup :: m Bool
glGetKHRShaderSubgroup = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_shader_subgroup")
gl_KHR_shader_subgroup :: Bool
gl_KHR_shader_subgroup :: Bool
gl_KHR_shader_subgroup = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_shader_subgroup" Set String
extensions
{-# NOINLINE gl_KHR_shader_subgroup #-}
glGetKHRTextureCompressionASTCHDR :: MonadIO m => m Bool
glGetKHRTextureCompressionASTCHDR :: m Bool
glGetKHRTextureCompressionASTCHDR = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_texture_compression_astc_hdr")
gl_KHR_texture_compression_astc_hdr :: Bool
gl_KHR_texture_compression_astc_hdr :: Bool
gl_KHR_texture_compression_astc_hdr = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_texture_compression_astc_hdr" Set String
extensions
{-# NOINLINE gl_KHR_texture_compression_astc_hdr #-}
glGetKHRTextureCompressionASTCLDR :: MonadIO m => m Bool
glGetKHRTextureCompressionASTCLDR :: m Bool
glGetKHRTextureCompressionASTCLDR = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_texture_compression_astc_ldr")
gl_KHR_texture_compression_astc_ldr :: Bool
gl_KHR_texture_compression_astc_ldr :: Bool
gl_KHR_texture_compression_astc_ldr = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_KHR_texture_compression_astc_ldr" Set String
extensions
{-# NOINLINE gl_KHR_texture_compression_astc_ldr #-}
glGetMESAFramebufferFlipY :: MonadIO m => m Bool
glGetMESAFramebufferFlipY :: m Bool
glGetMESAFramebufferFlipY = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_framebuffer_flip_y")
gl_MESA_framebuffer_flip_y :: Bool
gl_MESA_framebuffer_flip_y :: Bool
gl_MESA_framebuffer_flip_y = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_framebuffer_flip_y" Set String
extensions
{-# NOINLINE gl_MESA_framebuffer_flip_y #-}
glGetMESAPackInvert :: MonadIO m => m Bool
glGetMESAPackInvert :: m Bool
glGetMESAPackInvert = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_pack_invert")
gl_MESA_pack_invert :: Bool
gl_MESA_pack_invert :: Bool
gl_MESA_pack_invert = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_pack_invert" Set String
extensions
{-# NOINLINE gl_MESA_pack_invert #-}
glGetMESAProgramBinaryFormats :: MonadIO m => m Bool
glGetMESAProgramBinaryFormats :: m Bool
glGetMESAProgramBinaryFormats = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_program_binary_formats")
gl_MESA_program_binary_formats :: Bool
gl_MESA_program_binary_formats :: Bool
gl_MESA_program_binary_formats = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_program_binary_formats" Set String
extensions
{-# NOINLINE gl_MESA_program_binary_formats #-}
glGetMESAResizeBuffers :: MonadIO m => m Bool
glGetMESAResizeBuffers :: m Bool
glGetMESAResizeBuffers = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_resize_buffers")
gl_MESA_resize_buffers :: Bool
gl_MESA_resize_buffers :: Bool
gl_MESA_resize_buffers = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_resize_buffers" Set String
extensions
{-# NOINLINE gl_MESA_resize_buffers #-}
glGetMESATileRasterOrder :: MonadIO m => m Bool
glGetMESATileRasterOrder :: m Bool
glGetMESATileRasterOrder = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_tile_raster_order")
gl_MESA_tile_raster_order :: Bool
gl_MESA_tile_raster_order :: Bool
gl_MESA_tile_raster_order = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_tile_raster_order" Set String
extensions
{-# NOINLINE gl_MESA_tile_raster_order #-}
glGetMESAWindowPos :: MonadIO m => m Bool
glGetMESAWindowPos :: m Bool
glGetMESAWindowPos = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_window_pos")
gl_MESA_window_pos :: Bool
gl_MESA_window_pos :: Bool
gl_MESA_window_pos = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_window_pos" Set String
extensions
{-# NOINLINE gl_MESA_window_pos #-}
glGetMESAYCbCrTexture :: MonadIO m => m Bool
glGetMESAYCbCrTexture :: m Bool
glGetMESAYCbCrTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_ycbcr_texture")
gl_MESA_ycbcr_texture :: Bool
gl_MESA_ycbcr_texture :: Bool
gl_MESA_ycbcr_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESA_ycbcr_texture" Set String
extensions
{-# NOINLINE gl_MESA_ycbcr_texture #-}
glGetMESAXTextureStack :: MonadIO m => m Bool
glGetMESAXTextureStack :: m Bool
glGetMESAXTextureStack = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESAX_texture_stack")
gl_MESAX_texture_stack :: Bool
gl_MESAX_texture_stack :: Bool
gl_MESAX_texture_stack = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_MESAX_texture_stack" Set String
extensions
{-# NOINLINE gl_MESAX_texture_stack #-}
glGetNVAlphaToCoverageDitherControl :: MonadIO m => m Bool
glGetNVAlphaToCoverageDitherControl :: m Bool
glGetNVAlphaToCoverageDitherControl = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_alpha_to_coverage_dither_control")
gl_NV_alpha_to_coverage_dither_control :: Bool
gl_NV_alpha_to_coverage_dither_control :: Bool
gl_NV_alpha_to_coverage_dither_control = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_alpha_to_coverage_dither_control" Set String
extensions
{-# NOINLINE gl_NV_alpha_to_coverage_dither_control #-}
glGetNVBindlessMultiDrawIndirect :: MonadIO m => m Bool
glGetNVBindlessMultiDrawIndirect :: m Bool
glGetNVBindlessMultiDrawIndirect = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_bindless_multi_draw_indirect")
gl_NV_bindless_multi_draw_indirect :: Bool
gl_NV_bindless_multi_draw_indirect :: Bool
gl_NV_bindless_multi_draw_indirect = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_bindless_multi_draw_indirect" Set String
extensions
{-# NOINLINE gl_NV_bindless_multi_draw_indirect #-}
glGetNVBindlessMultiDrawIndirectCount :: MonadIO m => m Bool
glGetNVBindlessMultiDrawIndirectCount :: m Bool
glGetNVBindlessMultiDrawIndirectCount = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_bindless_multi_draw_indirect_count")
gl_NV_bindless_multi_draw_indirect_count :: Bool
gl_NV_bindless_multi_draw_indirect_count :: Bool
gl_NV_bindless_multi_draw_indirect_count = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_bindless_multi_draw_indirect_count" Set String
extensions
{-# NOINLINE gl_NV_bindless_multi_draw_indirect_count #-}
glGetNVBindlessTexture :: MonadIO m => m Bool
glGetNVBindlessTexture :: m Bool
glGetNVBindlessTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_bindless_texture")
gl_NV_bindless_texture :: Bool
gl_NV_bindless_texture :: Bool
gl_NV_bindless_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_bindless_texture" Set String
extensions
{-# NOINLINE gl_NV_bindless_texture #-}
glGetNVBlendEquationAdvanced :: MonadIO m => m Bool
glGetNVBlendEquationAdvanced :: m Bool
glGetNVBlendEquationAdvanced = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_blend_equation_advanced")
gl_NV_blend_equation_advanced :: Bool
gl_NV_blend_equation_advanced :: Bool
gl_NV_blend_equation_advanced = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_blend_equation_advanced" Set String
extensions
{-# NOINLINE gl_NV_blend_equation_advanced #-}
glGetNVBlendEquationAdvancedCoherent :: MonadIO m => m Bool
glGetNVBlendEquationAdvancedCoherent :: m Bool
glGetNVBlendEquationAdvancedCoherent = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_blend_equation_advanced_coherent")
gl_NV_blend_equation_advanced_coherent :: Bool
gl_NV_blend_equation_advanced_coherent :: Bool
gl_NV_blend_equation_advanced_coherent = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_blend_equation_advanced_coherent" Set String
extensions
{-# NOINLINE gl_NV_blend_equation_advanced_coherent #-}
glGetNVBlendMinmaxFactor :: MonadIO m => m Bool
glGetNVBlendMinmaxFactor :: m Bool
glGetNVBlendMinmaxFactor = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_blend_minmax_factor")
gl_NV_blend_minmax_factor :: Bool
gl_NV_blend_minmax_factor :: Bool
gl_NV_blend_minmax_factor = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_blend_minmax_factor" Set String
extensions
{-# NOINLINE gl_NV_blend_minmax_factor #-}
glGetNVClipSpaceWScaling :: MonadIO m => m Bool
glGetNVClipSpaceWScaling :: m Bool
glGetNVClipSpaceWScaling = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_clip_space_w_scaling")
gl_NV_clip_space_w_scaling :: Bool
gl_NV_clip_space_w_scaling :: Bool
gl_NV_clip_space_w_scaling = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_clip_space_w_scaling" Set String
extensions
{-# NOINLINE gl_NV_clip_space_w_scaling #-}
glGetNVCommandList :: MonadIO m => m Bool
glGetNVCommandList :: m Bool
glGetNVCommandList = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_command_list")
gl_NV_command_list :: Bool
gl_NV_command_list :: Bool
gl_NV_command_list = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_command_list" Set String
extensions
{-# NOINLINE gl_NV_command_list #-}
glGetNVComputeProgram5 :: MonadIO m => m Bool
glGetNVComputeProgram5 :: m Bool
glGetNVComputeProgram5 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_compute_program5")
gl_NV_compute_program5 :: Bool
gl_NV_compute_program5 :: Bool
gl_NV_compute_program5 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_compute_program5" Set String
extensions
{-# NOINLINE gl_NV_compute_program5 #-}
glGetNVConditionalRender :: MonadIO m => m Bool
glGetNVConditionalRender :: m Bool
glGetNVConditionalRender = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_conditional_render")
gl_NV_conditional_render :: Bool
gl_NV_conditional_render :: Bool
gl_NV_conditional_render = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_conditional_render" Set String
extensions
{-# NOINLINE gl_NV_conditional_render #-}
glGetNVConservativeRaster :: MonadIO m => m Bool
glGetNVConservativeRaster :: m Bool
glGetNVConservativeRaster = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_conservative_raster")
gl_NV_conservative_raster :: Bool
gl_NV_conservative_raster :: Bool
gl_NV_conservative_raster = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_conservative_raster" Set String
extensions
{-# NOINLINE gl_NV_conservative_raster #-}
glGetNVConservativeRasterDilate :: MonadIO m => m Bool
glGetNVConservativeRasterDilate :: m Bool
glGetNVConservativeRasterDilate = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_conservative_raster_dilate")
gl_NV_conservative_raster_dilate :: Bool
gl_NV_conservative_raster_dilate :: Bool
gl_NV_conservative_raster_dilate = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_conservative_raster_dilate" Set String
extensions
{-# NOINLINE gl_NV_conservative_raster_dilate #-}
glGetNVConservativeRasterPreSnap :: MonadIO m => m Bool
glGetNVConservativeRasterPreSnap :: m Bool
glGetNVConservativeRasterPreSnap = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_conservative_raster_pre_snap")
gl_NV_conservative_raster_pre_snap :: Bool
gl_NV_conservative_raster_pre_snap :: Bool
gl_NV_conservative_raster_pre_snap = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_conservative_raster_pre_snap" Set String
extensions
{-# NOINLINE gl_NV_conservative_raster_pre_snap #-}
glGetNVConservativeRasterPreSnapTriangles :: MonadIO m => m Bool
glGetNVConservativeRasterPreSnapTriangles :: m Bool
glGetNVConservativeRasterPreSnapTriangles = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_conservative_raster_pre_snap_triangles")
gl_NV_conservative_raster_pre_snap_triangles :: Bool
gl_NV_conservative_raster_pre_snap_triangles :: Bool
gl_NV_conservative_raster_pre_snap_triangles = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_conservative_raster_pre_snap_triangles" Set String
extensions
{-# NOINLINE gl_NV_conservative_raster_pre_snap_triangles #-}
glGetNVCopyDepthToColor :: MonadIO m => m Bool
glGetNVCopyDepthToColor :: m Bool
glGetNVCopyDepthToColor = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_copy_depth_to_color")
gl_NV_copy_depth_to_color :: Bool
gl_NV_copy_depth_to_color :: Bool
gl_NV_copy_depth_to_color = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_copy_depth_to_color" Set String
extensions
{-# NOINLINE gl_NV_copy_depth_to_color #-}
glGetNVCopyImage :: MonadIO m => m Bool
glGetNVCopyImage :: m Bool
glGetNVCopyImage = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_copy_image")
gl_NV_copy_image :: Bool
gl_NV_copy_image :: Bool
gl_NV_copy_image = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_copy_image" Set String
extensions
{-# NOINLINE gl_NV_copy_image #-}
glGetNVDeepTexture3D :: MonadIO m => m Bool
glGetNVDeepTexture3D :: m Bool
glGetNVDeepTexture3D = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_deep_texture3D")
gl_NV_deep_texture3D :: Bool
gl_NV_deep_texture3D :: Bool
gl_NV_deep_texture3D = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_deep_texture3D" Set String
extensions
{-# NOINLINE gl_NV_deep_texture3D #-}
glGetNVDepthBufferFloat :: MonadIO m => m Bool
glGetNVDepthBufferFloat :: m Bool
glGetNVDepthBufferFloat = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_depth_buffer_float")
gl_NV_depth_buffer_float :: Bool
gl_NV_depth_buffer_float :: Bool
gl_NV_depth_buffer_float = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_depth_buffer_float" Set String
extensions
{-# NOINLINE gl_NV_depth_buffer_float #-}
glGetNVDepthClamp :: MonadIO m => m Bool
glGetNVDepthClamp :: m Bool
glGetNVDepthClamp = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_depth_clamp")
gl_NV_depth_clamp :: Bool
gl_NV_depth_clamp :: Bool
gl_NV_depth_clamp = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_depth_clamp" Set String
extensions
{-# NOINLINE gl_NV_depth_clamp #-}
glGetNVDrawTexture :: MonadIO m => m Bool
glGetNVDrawTexture :: m Bool
glGetNVDrawTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_draw_texture")
gl_NV_draw_texture :: Bool
gl_NV_draw_texture :: Bool
gl_NV_draw_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_draw_texture" Set String
extensions
{-# NOINLINE gl_NV_draw_texture #-}
glGetNVDrawVulkanImage :: MonadIO m => m Bool
glGetNVDrawVulkanImage :: m Bool
glGetNVDrawVulkanImage = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_draw_vulkan_image")
gl_NV_draw_vulkan_image :: Bool
gl_NV_draw_vulkan_image :: Bool
gl_NV_draw_vulkan_image = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_draw_vulkan_image" Set String
extensions
{-# NOINLINE gl_NV_draw_vulkan_image #-}
glGetNVEvaluators :: MonadIO m => m Bool
glGetNVEvaluators :: m Bool
glGetNVEvaluators = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_evaluators")
gl_NV_evaluators :: Bool
gl_NV_evaluators :: Bool
gl_NV_evaluators = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_evaluators" Set String
extensions
{-# NOINLINE gl_NV_evaluators #-}
glGetNVExplicitMultisample :: MonadIO m => m Bool
glGetNVExplicitMultisample :: m Bool
glGetNVExplicitMultisample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_explicit_multisample")
gl_NV_explicit_multisample :: Bool
gl_NV_explicit_multisample :: Bool
gl_NV_explicit_multisample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_explicit_multisample" Set String
extensions
{-# NOINLINE gl_NV_explicit_multisample #-}
glGetNVFence :: MonadIO m => m Bool
glGetNVFence :: m Bool
glGetNVFence = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_fence")
gl_NV_fence :: Bool
gl_NV_fence :: Bool
gl_NV_fence = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_fence" Set String
extensions
{-# NOINLINE gl_NV_fence #-}
glGetNVFillRectangle :: MonadIO m => m Bool
glGetNVFillRectangle :: m Bool
glGetNVFillRectangle = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_fill_rectangle")
gl_NV_fill_rectangle :: Bool
gl_NV_fill_rectangle :: Bool
gl_NV_fill_rectangle = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_fill_rectangle" Set String
extensions
{-# NOINLINE gl_NV_fill_rectangle #-}
glGetNVFloatBuffer :: MonadIO m => m Bool
glGetNVFloatBuffer :: m Bool
glGetNVFloatBuffer = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_float_buffer")
gl_NV_float_buffer :: Bool
gl_NV_float_buffer :: Bool
gl_NV_float_buffer = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_float_buffer" Set String
extensions
{-# NOINLINE gl_NV_float_buffer #-}
glGetNVFogDistance :: MonadIO m => m Bool
glGetNVFogDistance :: m Bool
glGetNVFogDistance = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_fog_distance")
gl_NV_fog_distance :: Bool
gl_NV_fog_distance :: Bool
gl_NV_fog_distance = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_fog_distance" Set String
extensions
{-# NOINLINE gl_NV_fog_distance #-}
glGetNVFragmentCoverageToColor :: MonadIO m => m Bool
glGetNVFragmentCoverageToColor :: m Bool
glGetNVFragmentCoverageToColor = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_fragment_coverage_to_color")
gl_NV_fragment_coverage_to_color :: Bool
gl_NV_fragment_coverage_to_color :: Bool
gl_NV_fragment_coverage_to_color = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_fragment_coverage_to_color" Set String
extensions
{-# NOINLINE gl_NV_fragment_coverage_to_color #-}
glGetNVFragmentProgram :: MonadIO m => m Bool
glGetNVFragmentProgram :: m Bool
glGetNVFragmentProgram = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_fragment_program")
gl_NV_fragment_program :: Bool
gl_NV_fragment_program :: Bool
gl_NV_fragment_program = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_fragment_program" Set String
extensions
{-# NOINLINE gl_NV_fragment_program #-}
glGetNVFragmentProgram2 :: MonadIO m => m Bool
glGetNVFragmentProgram2 :: m Bool
glGetNVFragmentProgram2 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_fragment_program2")
gl_NV_fragment_program2 :: Bool
gl_NV_fragment_program2 :: Bool
gl_NV_fragment_program2 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_fragment_program2" Set String
extensions
{-# NOINLINE gl_NV_fragment_program2 #-}
glGetNVFramebufferMixedSamples :: MonadIO m => m Bool
glGetNVFramebufferMixedSamples :: m Bool
glGetNVFramebufferMixedSamples = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_framebuffer_mixed_samples")
gl_NV_framebuffer_mixed_samples :: Bool
gl_NV_framebuffer_mixed_samples :: Bool
gl_NV_framebuffer_mixed_samples = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_framebuffer_mixed_samples" Set String
extensions
{-# NOINLINE gl_NV_framebuffer_mixed_samples #-}
glGetNVFramebufferMultisampleCoverage :: MonadIO m => m Bool
glGetNVFramebufferMultisampleCoverage :: m Bool
glGetNVFramebufferMultisampleCoverage = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_framebuffer_multisample_coverage")
gl_NV_framebuffer_multisample_coverage :: Bool
gl_NV_framebuffer_multisample_coverage :: Bool
gl_NV_framebuffer_multisample_coverage = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_framebuffer_multisample_coverage" Set String
extensions
{-# NOINLINE gl_NV_framebuffer_multisample_coverage #-}
glGetNVGeometryProgram4 :: MonadIO m => m Bool
glGetNVGeometryProgram4 :: m Bool
glGetNVGeometryProgram4 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_geometry_program4")
gl_NV_geometry_program4 :: Bool
gl_NV_geometry_program4 :: Bool
gl_NV_geometry_program4 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_geometry_program4" Set String
extensions
{-# NOINLINE gl_NV_geometry_program4 #-}
glGetNVGPUMulticast :: MonadIO m => m Bool
glGetNVGPUMulticast :: m Bool
glGetNVGPUMulticast = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_gpu_multicast")
gl_NV_gpu_multicast :: Bool
gl_NV_gpu_multicast :: Bool
gl_NV_gpu_multicast = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_gpu_multicast" Set String
extensions
{-# NOINLINE gl_NV_gpu_multicast #-}
glGetNVGPUProgram4 :: MonadIO m => m Bool
glGetNVGPUProgram4 :: m Bool
glGetNVGPUProgram4 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_gpu_program4")
gl_NV_gpu_program4 :: Bool
gl_NV_gpu_program4 :: Bool
gl_NV_gpu_program4 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_gpu_program4" Set String
extensions
{-# NOINLINE gl_NV_gpu_program4 #-}
glGetNVGPUProgram5 :: MonadIO m => m Bool
glGetNVGPUProgram5 :: m Bool
glGetNVGPUProgram5 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_gpu_program5")
gl_NV_gpu_program5 :: Bool
gl_NV_gpu_program5 :: Bool
gl_NV_gpu_program5 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_gpu_program5" Set String
extensions
{-# NOINLINE gl_NV_gpu_program5 #-}
glGetNVGPUShader5 :: MonadIO m => m Bool
glGetNVGPUShader5 :: m Bool
glGetNVGPUShader5 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_gpu_shader5")
gl_NV_gpu_shader5 :: Bool
gl_NV_gpu_shader5 :: Bool
gl_NV_gpu_shader5 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_gpu_shader5" Set String
extensions
{-# NOINLINE gl_NV_gpu_shader5 #-}
glGetNVHalfFloat :: MonadIO m => m Bool
glGetNVHalfFloat :: m Bool
glGetNVHalfFloat = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_half_float")
gl_NV_half_float :: Bool
gl_NV_half_float :: Bool
gl_NV_half_float = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_half_float" Set String
extensions
{-# NOINLINE gl_NV_half_float #-}
glGetNVInternalformatSampleQuery :: MonadIO m => m Bool
glGetNVInternalformatSampleQuery :: m Bool
glGetNVInternalformatSampleQuery = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_internalformat_sample_query")
gl_NV_internalformat_sample_query :: Bool
gl_NV_internalformat_sample_query :: Bool
gl_NV_internalformat_sample_query = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_internalformat_sample_query" Set String
extensions
{-# NOINLINE gl_NV_internalformat_sample_query #-}
glGetNVLightMaxExponent :: MonadIO m => m Bool
glGetNVLightMaxExponent :: m Bool
glGetNVLightMaxExponent = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_light_max_exponent")
gl_NV_light_max_exponent :: Bool
gl_NV_light_max_exponent :: Bool
gl_NV_light_max_exponent = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_light_max_exponent" Set String
extensions
{-# NOINLINE gl_NV_light_max_exponent #-}
glGetNVMemoryAttachment :: MonadIO m => m Bool
glGetNVMemoryAttachment :: m Bool
glGetNVMemoryAttachment = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_memory_attachment")
gl_NV_memory_attachment :: Bool
gl_NV_memory_attachment :: Bool
gl_NV_memory_attachment = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_memory_attachment" Set String
extensions
{-# NOINLINE gl_NV_memory_attachment #-}
glGetNVMeshShader :: MonadIO m => m Bool
glGetNVMeshShader :: m Bool
glGetNVMeshShader = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_mesh_shader")
gl_NV_mesh_shader :: Bool
gl_NV_mesh_shader :: Bool
gl_NV_mesh_shader = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_mesh_shader" Set String
extensions
{-# NOINLINE gl_NV_mesh_shader #-}
glGetNVMultisampleCoverage :: MonadIO m => m Bool
glGetNVMultisampleCoverage :: m Bool
glGetNVMultisampleCoverage = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_multisample_coverage")
gl_NV_multisample_coverage :: Bool
gl_NV_multisample_coverage :: Bool
gl_NV_multisample_coverage = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_multisample_coverage" Set String
extensions
{-# NOINLINE gl_NV_multisample_coverage #-}
glGetNVMultisampleFilterHint :: MonadIO m => m Bool
glGetNVMultisampleFilterHint :: m Bool
glGetNVMultisampleFilterHint = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_multisample_filter_hint")
gl_NV_multisample_filter_hint :: Bool
gl_NV_multisample_filter_hint :: Bool
gl_NV_multisample_filter_hint = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_multisample_filter_hint" Set String
extensions
{-# NOINLINE gl_NV_multisample_filter_hint #-}
glGetNVOcclusionQuery :: MonadIO m => m Bool
glGetNVOcclusionQuery :: m Bool
glGetNVOcclusionQuery = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_occlusion_query")
gl_NV_occlusion_query :: Bool
gl_NV_occlusion_query :: Bool
gl_NV_occlusion_query = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_occlusion_query" Set String
extensions
{-# NOINLINE gl_NV_occlusion_query #-}
glGetNVPackedDepthStencil :: MonadIO m => m Bool
glGetNVPackedDepthStencil :: m Bool
glGetNVPackedDepthStencil = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_packed_depth_stencil")
gl_NV_packed_depth_stencil :: Bool
gl_NV_packed_depth_stencil :: Bool
gl_NV_packed_depth_stencil = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_packed_depth_stencil" Set String
extensions
{-# NOINLINE gl_NV_packed_depth_stencil #-}
glGetNVParameterBufferObject :: MonadIO m => m Bool
glGetNVParameterBufferObject :: m Bool
glGetNVParameterBufferObject = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_parameter_buffer_object")
gl_NV_parameter_buffer_object :: Bool
gl_NV_parameter_buffer_object :: Bool
gl_NV_parameter_buffer_object = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_parameter_buffer_object" Set String
extensions
{-# NOINLINE gl_NV_parameter_buffer_object #-}
glGetNVPathRendering :: MonadIO m => m Bool
glGetNVPathRendering :: m Bool
glGetNVPathRendering = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_path_rendering")
gl_NV_path_rendering :: Bool
gl_NV_path_rendering :: Bool
gl_NV_path_rendering = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_path_rendering" Set String
extensions
{-# NOINLINE gl_NV_path_rendering #-}
glGetNVPathRenderingSharedEdge :: MonadIO m => m Bool
glGetNVPathRenderingSharedEdge :: m Bool
glGetNVPathRenderingSharedEdge = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_path_rendering_shared_edge")
gl_NV_path_rendering_shared_edge :: Bool
gl_NV_path_rendering_shared_edge :: Bool
gl_NV_path_rendering_shared_edge = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_path_rendering_shared_edge" Set String
extensions
{-# NOINLINE gl_NV_path_rendering_shared_edge #-}
glGetNVPixelDataRange :: MonadIO m => m Bool
glGetNVPixelDataRange :: m Bool
glGetNVPixelDataRange = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_pixel_data_range")
gl_NV_pixel_data_range :: Bool
gl_NV_pixel_data_range :: Bool
gl_NV_pixel_data_range = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_pixel_data_range" Set String
extensions
{-# NOINLINE gl_NV_pixel_data_range #-}
glGetNVPointSprite :: MonadIO m => m Bool
glGetNVPointSprite :: m Bool
glGetNVPointSprite = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_point_sprite")
gl_NV_point_sprite :: Bool
gl_NV_point_sprite :: Bool
gl_NV_point_sprite = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_point_sprite" Set String
extensions
{-# NOINLINE gl_NV_point_sprite #-}
glGetNVPresentVideo :: MonadIO m => m Bool
glGetNVPresentVideo :: m Bool
glGetNVPresentVideo = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_present_video")
gl_NV_present_video :: Bool
gl_NV_present_video :: Bool
gl_NV_present_video = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_present_video" Set String
extensions
{-# NOINLINE gl_NV_present_video #-}
glGetNVPrimitiveRestart :: MonadIO m => m Bool
glGetNVPrimitiveRestart :: m Bool
glGetNVPrimitiveRestart = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_primitive_restart")
gl_NV_primitive_restart :: Bool
gl_NV_primitive_restart :: Bool
gl_NV_primitive_restart = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_primitive_restart" Set String
extensions
{-# NOINLINE gl_NV_primitive_restart #-}
glGetNVQueryResource :: MonadIO m => m Bool
glGetNVQueryResource :: m Bool
glGetNVQueryResource = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_query_resource")
gl_NV_query_resource :: Bool
gl_NV_query_resource :: Bool
gl_NV_query_resource = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_query_resource" Set String
extensions
{-# NOINLINE gl_NV_query_resource #-}
glGetNVQueryResourceTag :: MonadIO m => m Bool
glGetNVQueryResourceTag :: m Bool
glGetNVQueryResourceTag = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_query_resource_tag")
gl_NV_query_resource_tag :: Bool
gl_NV_query_resource_tag :: Bool
gl_NV_query_resource_tag = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_query_resource_tag" Set String
extensions
{-# NOINLINE gl_NV_query_resource_tag #-}
glGetNVRegisterCombiners :: MonadIO m => m Bool
glGetNVRegisterCombiners :: m Bool
glGetNVRegisterCombiners = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_register_combiners")
gl_NV_register_combiners :: Bool
gl_NV_register_combiners :: Bool
gl_NV_register_combiners = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_register_combiners" Set String
extensions
{-# NOINLINE gl_NV_register_combiners #-}
glGetNVRegisterCombiners2 :: MonadIO m => m Bool
glGetNVRegisterCombiners2 :: m Bool
glGetNVRegisterCombiners2 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_register_combiners2")
gl_NV_register_combiners2 :: Bool
gl_NV_register_combiners2 :: Bool
gl_NV_register_combiners2 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_register_combiners2" Set String
extensions
{-# NOINLINE gl_NV_register_combiners2 #-}
glGetNVRepresentativeFragmentTest :: MonadIO m => m Bool
glGetNVRepresentativeFragmentTest :: m Bool
glGetNVRepresentativeFragmentTest = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_representative_fragment_test")
gl_NV_representative_fragment_test :: Bool
gl_NV_representative_fragment_test :: Bool
gl_NV_representative_fragment_test = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_representative_fragment_test" Set String
extensions
{-# NOINLINE gl_NV_representative_fragment_test #-}
glGetNVRobustnessVideoMemoryPurge :: MonadIO m => m Bool
glGetNVRobustnessVideoMemoryPurge :: m Bool
glGetNVRobustnessVideoMemoryPurge = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_robustness_video_memory_purge")
gl_NV_robustness_video_memory_purge :: Bool
gl_NV_robustness_video_memory_purge :: Bool
gl_NV_robustness_video_memory_purge = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_robustness_video_memory_purge" Set String
extensions
{-# NOINLINE gl_NV_robustness_video_memory_purge #-}
glGetNVSampleLocations :: MonadIO m => m Bool
glGetNVSampleLocations :: m Bool
glGetNVSampleLocations = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_sample_locations")
gl_NV_sample_locations :: Bool
gl_NV_sample_locations :: Bool
gl_NV_sample_locations = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_sample_locations" Set String
extensions
{-# NOINLINE gl_NV_sample_locations #-}
glGetNVScissorExclusive :: MonadIO m => m Bool
glGetNVScissorExclusive :: m Bool
glGetNVScissorExclusive = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_scissor_exclusive")
gl_NV_scissor_exclusive :: Bool
gl_NV_scissor_exclusive :: Bool
gl_NV_scissor_exclusive = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_scissor_exclusive" Set String
extensions
{-# NOINLINE gl_NV_scissor_exclusive #-}
glGetNVShaderBufferLoad :: MonadIO m => m Bool
glGetNVShaderBufferLoad :: m Bool
glGetNVShaderBufferLoad = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_shader_buffer_load")
gl_NV_shader_buffer_load :: Bool
gl_NV_shader_buffer_load :: Bool
gl_NV_shader_buffer_load = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_shader_buffer_load" Set String
extensions
{-# NOINLINE gl_NV_shader_buffer_load #-}
glGetNVShaderBufferStore :: MonadIO m => m Bool
glGetNVShaderBufferStore :: m Bool
glGetNVShaderBufferStore = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_shader_buffer_store")
gl_NV_shader_buffer_store :: Bool
gl_NV_shader_buffer_store :: Bool
gl_NV_shader_buffer_store = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_shader_buffer_store" Set String
extensions
{-# NOINLINE gl_NV_shader_buffer_store #-}
glGetNVShaderSubgroupPartitioned :: MonadIO m => m Bool
glGetNVShaderSubgroupPartitioned :: m Bool
glGetNVShaderSubgroupPartitioned = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_shader_subgroup_partitioned")
gl_NV_shader_subgroup_partitioned :: Bool
gl_NV_shader_subgroup_partitioned :: Bool
gl_NV_shader_subgroup_partitioned = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_shader_subgroup_partitioned" Set String
extensions
{-# NOINLINE gl_NV_shader_subgroup_partitioned #-}
glGetNVShaderThreadGroup :: MonadIO m => m Bool
glGetNVShaderThreadGroup :: m Bool
glGetNVShaderThreadGroup = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_shader_thread_group")
gl_NV_shader_thread_group :: Bool
gl_NV_shader_thread_group :: Bool
gl_NV_shader_thread_group = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_shader_thread_group" Set String
extensions
{-# NOINLINE gl_NV_shader_thread_group #-}
glGetNVShadingRateImage :: MonadIO m => m Bool
glGetNVShadingRateImage :: m Bool
glGetNVShadingRateImage = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_shading_rate_image")
gl_NV_shading_rate_image :: Bool
gl_NV_shading_rate_image :: Bool
gl_NV_shading_rate_image = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_shading_rate_image" Set String
extensions
{-# NOINLINE gl_NV_shading_rate_image #-}
glGetNVTessellationProgram5 :: MonadIO m => m Bool
glGetNVTessellationProgram5 :: m Bool
glGetNVTessellationProgram5 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_tessellation_program5")
gl_NV_tessellation_program5 :: Bool
gl_NV_tessellation_program5 :: Bool
gl_NV_tessellation_program5 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_tessellation_program5" Set String
extensions
{-# NOINLINE gl_NV_tessellation_program5 #-}
glGetNVTexgenEmboss :: MonadIO m => m Bool
glGetNVTexgenEmboss :: m Bool
glGetNVTexgenEmboss = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texgen_emboss")
gl_NV_texgen_emboss :: Bool
gl_NV_texgen_emboss :: Bool
gl_NV_texgen_emboss = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texgen_emboss" Set String
extensions
{-# NOINLINE gl_NV_texgen_emboss #-}
glGetNVTexgenReflection :: MonadIO m => m Bool
glGetNVTexgenReflection :: m Bool
glGetNVTexgenReflection = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texgen_reflection")
gl_NV_texgen_reflection :: Bool
gl_NV_texgen_reflection :: Bool
gl_NV_texgen_reflection = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texgen_reflection" Set String
extensions
{-# NOINLINE gl_NV_texgen_reflection #-}
glGetNVTextureBarrier :: MonadIO m => m Bool
glGetNVTextureBarrier :: m Bool
glGetNVTextureBarrier = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_barrier")
gl_NV_texture_barrier :: Bool
gl_NV_texture_barrier :: Bool
gl_NV_texture_barrier = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_barrier" Set String
extensions
{-# NOINLINE gl_NV_texture_barrier #-}
glGetNVTextureEnvCombine4 :: MonadIO m => m Bool
glGetNVTextureEnvCombine4 :: m Bool
glGetNVTextureEnvCombine4 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_env_combine4")
gl_NV_texture_env_combine4 :: Bool
gl_NV_texture_env_combine4 :: Bool
gl_NV_texture_env_combine4 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_env_combine4" Set String
extensions
{-# NOINLINE gl_NV_texture_env_combine4 #-}
glGetNVTextureExpandNormal :: MonadIO m => m Bool
glGetNVTextureExpandNormal :: m Bool
glGetNVTextureExpandNormal = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_expand_normal")
gl_NV_texture_expand_normal :: Bool
gl_NV_texture_expand_normal :: Bool
gl_NV_texture_expand_normal = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_expand_normal" Set String
extensions
{-# NOINLINE gl_NV_texture_expand_normal #-}
glGetNVTextureMultisample :: MonadIO m => m Bool
glGetNVTextureMultisample :: m Bool
glGetNVTextureMultisample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_multisample")
gl_NV_texture_multisample :: Bool
gl_NV_texture_multisample :: Bool
gl_NV_texture_multisample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_multisample" Set String
extensions
{-# NOINLINE gl_NV_texture_multisample #-}
glGetNVTextureRectangle :: MonadIO m => m Bool
glGetNVTextureRectangle :: m Bool
glGetNVTextureRectangle = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_rectangle")
gl_NV_texture_rectangle :: Bool
gl_NV_texture_rectangle :: Bool
gl_NV_texture_rectangle = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_rectangle" Set String
extensions
{-# NOINLINE gl_NV_texture_rectangle #-}
glGetNVTextureShader :: MonadIO m => m Bool
glGetNVTextureShader :: m Bool
glGetNVTextureShader = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_shader")
gl_NV_texture_shader :: Bool
gl_NV_texture_shader :: Bool
gl_NV_texture_shader = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_shader" Set String
extensions
{-# NOINLINE gl_NV_texture_shader #-}
glGetNVTextureShader2 :: MonadIO m => m Bool
glGetNVTextureShader2 :: m Bool
glGetNVTextureShader2 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_shader2")
gl_NV_texture_shader2 :: Bool
gl_NV_texture_shader2 :: Bool
gl_NV_texture_shader2 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_shader2" Set String
extensions
{-# NOINLINE gl_NV_texture_shader2 #-}
glGetNVTextureShader3 :: MonadIO m => m Bool
glGetNVTextureShader3 :: m Bool
glGetNVTextureShader3 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_shader3")
gl_NV_texture_shader3 :: Bool
gl_NV_texture_shader3 :: Bool
gl_NV_texture_shader3 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_texture_shader3" Set String
extensions
{-# NOINLINE gl_NV_texture_shader3 #-}
glGetNVTransformFeedback :: MonadIO m => m Bool
glGetNVTransformFeedback :: m Bool
glGetNVTransformFeedback = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_transform_feedback")
gl_NV_transform_feedback :: Bool
gl_NV_transform_feedback :: Bool
gl_NV_transform_feedback = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_transform_feedback" Set String
extensions
{-# NOINLINE gl_NV_transform_feedback #-}
glGetNVTransformFeedback2 :: MonadIO m => m Bool
glGetNVTransformFeedback2 :: m Bool
glGetNVTransformFeedback2 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_transform_feedback2")
gl_NV_transform_feedback2 :: Bool
gl_NV_transform_feedback2 :: Bool
gl_NV_transform_feedback2 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_transform_feedback2" Set String
extensions
{-# NOINLINE gl_NV_transform_feedback2 #-}
glGetNVUniformBufferUnifiedMemory :: MonadIO m => m Bool
glGetNVUniformBufferUnifiedMemory :: m Bool
glGetNVUniformBufferUnifiedMemory = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_uniform_buffer_unified_memory")
gl_NV_uniform_buffer_unified_memory :: Bool
gl_NV_uniform_buffer_unified_memory :: Bool
gl_NV_uniform_buffer_unified_memory = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_uniform_buffer_unified_memory" Set String
extensions
{-# NOINLINE gl_NV_uniform_buffer_unified_memory #-}
glGetNVVDPAUInterop :: MonadIO m => m Bool
glGetNVVDPAUInterop :: m Bool
glGetNVVDPAUInterop = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vdpau_interop")
gl_NV_vdpau_interop :: Bool
gl_NV_vdpau_interop :: Bool
gl_NV_vdpau_interop = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vdpau_interop" Set String
extensions
{-# NOINLINE gl_NV_vdpau_interop #-}
glGetNVVDPAUInterop2 :: MonadIO m => m Bool
glGetNVVDPAUInterop2 :: m Bool
glGetNVVDPAUInterop2 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vdpau_interop2")
gl_NV_vdpau_interop2 :: Bool
gl_NV_vdpau_interop2 :: Bool
gl_NV_vdpau_interop2 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vdpau_interop2" Set String
extensions
{-# NOINLINE gl_NV_vdpau_interop2 #-}
glGetNVVertexArrayRange :: MonadIO m => m Bool
glGetNVVertexArrayRange :: m Bool
glGetNVVertexArrayRange = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_array_range")
gl_NV_vertex_array_range :: Bool
gl_NV_vertex_array_range :: Bool
gl_NV_vertex_array_range = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_array_range" Set String
extensions
{-# NOINLINE gl_NV_vertex_array_range #-}
glGetNVVertexArrayRange2 :: MonadIO m => m Bool
glGetNVVertexArrayRange2 :: m Bool
glGetNVVertexArrayRange2 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_array_range2")
gl_NV_vertex_array_range2 :: Bool
gl_NV_vertex_array_range2 :: Bool
gl_NV_vertex_array_range2 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_array_range2" Set String
extensions
{-# NOINLINE gl_NV_vertex_array_range2 #-}
glGetNVVertexAttribInteger64Bit :: MonadIO m => m Bool
glGetNVVertexAttribInteger64Bit :: m Bool
glGetNVVertexAttribInteger64Bit = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_attrib_integer_64bit")
gl_NV_vertex_attrib_integer_64bit :: Bool
gl_NV_vertex_attrib_integer_64bit :: Bool
gl_NV_vertex_attrib_integer_64bit = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_attrib_integer_64bit" Set String
extensions
{-# NOINLINE gl_NV_vertex_attrib_integer_64bit #-}
glGetNVVertexBufferUnifiedMemory :: MonadIO m => m Bool
glGetNVVertexBufferUnifiedMemory :: m Bool
glGetNVVertexBufferUnifiedMemory = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_buffer_unified_memory")
gl_NV_vertex_buffer_unified_memory :: Bool
gl_NV_vertex_buffer_unified_memory :: Bool
gl_NV_vertex_buffer_unified_memory = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_buffer_unified_memory" Set String
extensions
{-# NOINLINE gl_NV_vertex_buffer_unified_memory #-}
glGetNVVertexProgram :: MonadIO m => m Bool
glGetNVVertexProgram :: m Bool
glGetNVVertexProgram = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_program")
gl_NV_vertex_program :: Bool
gl_NV_vertex_program :: Bool
gl_NV_vertex_program = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_program" Set String
extensions
{-# NOINLINE gl_NV_vertex_program #-}
glGetNVVertexProgram2Option :: MonadIO m => m Bool
glGetNVVertexProgram2Option :: m Bool
glGetNVVertexProgram2Option = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_program2_option")
gl_NV_vertex_program2_option :: Bool
gl_NV_vertex_program2_option :: Bool
gl_NV_vertex_program2_option = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_program2_option" Set String
extensions
{-# NOINLINE gl_NV_vertex_program2_option #-}
glGetNVVertexProgram3 :: MonadIO m => m Bool
glGetNVVertexProgram3 :: m Bool
glGetNVVertexProgram3 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_program3")
gl_NV_vertex_program3 :: Bool
gl_NV_vertex_program3 :: Bool
gl_NV_vertex_program3 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_program3" Set String
extensions
{-# NOINLINE gl_NV_vertex_program3 #-}
glGetNVVertexProgram4 :: MonadIO m => m Bool
glGetNVVertexProgram4 :: m Bool
glGetNVVertexProgram4 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_program4")
gl_NV_vertex_program4 :: Bool
gl_NV_vertex_program4 :: Bool
gl_NV_vertex_program4 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_vertex_program4" Set String
extensions
{-# NOINLINE gl_NV_vertex_program4 #-}
glGetNVVideoCapture :: MonadIO m => m Bool
glGetNVVideoCapture :: m Bool
glGetNVVideoCapture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_video_capture")
gl_NV_video_capture :: Bool
gl_NV_video_capture :: Bool
gl_NV_video_capture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_video_capture" Set String
extensions
{-# NOINLINE gl_NV_video_capture #-}
glGetNVViewportSwizzle :: MonadIO m => m Bool
glGetNVViewportSwizzle :: m Bool
glGetNVViewportSwizzle = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_viewport_swizzle")
gl_NV_viewport_swizzle :: Bool
gl_NV_viewport_swizzle :: Bool
gl_NV_viewport_swizzle = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NV_viewport_swizzle" Set String
extensions
{-# NOINLINE gl_NV_viewport_swizzle #-}
glGetNVXConditionalRender :: MonadIO m => m Bool
glGetNVXConditionalRender :: m Bool
glGetNVXConditionalRender = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NVX_conditional_render")
gl_NVX_conditional_render :: Bool
gl_NVX_conditional_render :: Bool
gl_NVX_conditional_render = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NVX_conditional_render" Set String
extensions
{-# NOINLINE gl_NVX_conditional_render #-}
glGetNVXGPUMemoryInfo :: MonadIO m => m Bool
glGetNVXGPUMemoryInfo :: m Bool
glGetNVXGPUMemoryInfo = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NVX_gpu_memory_info")
gl_NVX_gpu_memory_info :: Bool
gl_NVX_gpu_memory_info :: Bool
gl_NVX_gpu_memory_info = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NVX_gpu_memory_info" Set String
extensions
{-# NOINLINE gl_NVX_gpu_memory_info #-}
glGetNVXGPUMulticast2 :: MonadIO m => m Bool
glGetNVXGPUMulticast2 :: m Bool
glGetNVXGPUMulticast2 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NVX_gpu_multicast2")
gl_NVX_gpu_multicast2 :: Bool
gl_NVX_gpu_multicast2 :: Bool
gl_NVX_gpu_multicast2 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NVX_gpu_multicast2" Set String
extensions
{-# NOINLINE gl_NVX_gpu_multicast2 #-}
glGetNVXLinkedGPUMulticast :: MonadIO m => m Bool
glGetNVXLinkedGPUMulticast :: m Bool
glGetNVXLinkedGPUMulticast = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NVX_linked_gpu_multicast")
gl_NVX_linked_gpu_multicast :: Bool
gl_NVX_linked_gpu_multicast :: Bool
gl_NVX_linked_gpu_multicast = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NVX_linked_gpu_multicast" Set String
extensions
{-# NOINLINE gl_NVX_linked_gpu_multicast #-}
glGetNVXProgressFence :: MonadIO m => m Bool
glGetNVXProgressFence :: m Bool
glGetNVXProgressFence = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NVX_progress_fence")
gl_NVX_progress_fence :: Bool
gl_NVX_progress_fence :: Bool
gl_NVX_progress_fence = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_NVX_progress_fence" Set String
extensions
{-# NOINLINE gl_NVX_progress_fence #-}
glGetOESByteCoordinates :: MonadIO m => m Bool
glGetOESByteCoordinates :: m Bool
glGetOESByteCoordinates = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OES_byte_coordinates")
gl_OES_byte_coordinates :: Bool
gl_OES_byte_coordinates :: Bool
gl_OES_byte_coordinates = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OES_byte_coordinates" Set String
extensions
{-# NOINLINE gl_OES_byte_coordinates #-}
glGetOESCompressedPalettedTexture :: MonadIO m => m Bool
glGetOESCompressedPalettedTexture :: m Bool
glGetOESCompressedPalettedTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OES_compressed_paletted_texture")
gl_OES_compressed_paletted_texture :: Bool
gl_OES_compressed_paletted_texture :: Bool
gl_OES_compressed_paletted_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OES_compressed_paletted_texture" Set String
extensions
{-# NOINLINE gl_OES_compressed_paletted_texture #-}
glGetOESFixedPoint :: MonadIO m => m Bool
glGetOESFixedPoint :: m Bool
glGetOESFixedPoint = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OES_fixed_point")
gl_OES_fixed_point :: Bool
gl_OES_fixed_point :: Bool
gl_OES_fixed_point = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OES_fixed_point" Set String
extensions
{-# NOINLINE gl_OES_fixed_point #-}
glGetOESQueryMatrix :: MonadIO m => m Bool
glGetOESQueryMatrix :: m Bool
glGetOESQueryMatrix = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OES_query_matrix")
gl_OES_query_matrix :: Bool
gl_OES_query_matrix :: Bool
gl_OES_query_matrix = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OES_query_matrix" Set String
extensions
{-# NOINLINE gl_OES_query_matrix #-}
glGetOESReadFormat :: MonadIO m => m Bool
glGetOESReadFormat :: m Bool
glGetOESReadFormat = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OES_read_format")
gl_OES_read_format :: Bool
gl_OES_read_format :: Bool
gl_OES_read_format = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OES_read_format" Set String
extensions
{-# NOINLINE gl_OES_read_format #-}
glGetOESSinglePrecision :: MonadIO m => m Bool
glGetOESSinglePrecision :: m Bool
glGetOESSinglePrecision = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OES_single_precision")
gl_OES_single_precision :: Bool
gl_OES_single_precision :: Bool
gl_OES_single_precision = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OES_single_precision" Set String
extensions
{-# NOINLINE gl_OES_single_precision #-}
glGetOMLInterlace :: MonadIO m => m Bool
glGetOMLInterlace :: m Bool
glGetOMLInterlace = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OML_interlace")
gl_OML_interlace :: Bool
gl_OML_interlace :: Bool
gl_OML_interlace = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OML_interlace" Set String
extensions
{-# NOINLINE gl_OML_interlace #-}
glGetOMLResample :: MonadIO m => m Bool
glGetOMLResample :: m Bool
glGetOMLResample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OML_resample")
gl_OML_resample :: Bool
gl_OML_resample :: Bool
gl_OML_resample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OML_resample" Set String
extensions
{-# NOINLINE gl_OML_resample #-}
glGetOMLSubsample :: MonadIO m => m Bool
glGetOMLSubsample :: m Bool
glGetOMLSubsample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OML_subsample")
gl_OML_subsample :: Bool
gl_OML_subsample :: Bool
gl_OML_subsample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OML_subsample" Set String
extensions
{-# NOINLINE gl_OML_subsample #-}
glGetOVRMultiview :: MonadIO m => m Bool
glGetOVRMultiview :: m Bool
glGetOVRMultiview = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OVR_multiview")
gl_OVR_multiview :: Bool
gl_OVR_multiview :: Bool
gl_OVR_multiview = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_OVR_multiview" Set String
extensions
{-# NOINLINE gl_OVR_multiview #-}
glGetPGIMiscHints :: MonadIO m => m Bool
glGetPGIMiscHints :: m Bool
glGetPGIMiscHints = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_PGI_misc_hints")
gl_PGI_misc_hints :: Bool
gl_PGI_misc_hints :: Bool
gl_PGI_misc_hints = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_PGI_misc_hints" Set String
extensions
{-# NOINLINE gl_PGI_misc_hints #-}
glGetPGIVertexHints :: MonadIO m => m Bool
glGetPGIVertexHints :: m Bool
glGetPGIVertexHints = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_PGI_vertex_hints")
gl_PGI_vertex_hints :: Bool
gl_PGI_vertex_hints :: Bool
gl_PGI_vertex_hints = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_PGI_vertex_hints" Set String
extensions
{-# NOINLINE gl_PGI_vertex_hints #-}
glGetRENDScreenCoordinates :: MonadIO m => m Bool
glGetRENDScreenCoordinates :: m Bool
glGetRENDScreenCoordinates = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_REND_screen_coordinates")
gl_REND_screen_coordinates :: Bool
gl_REND_screen_coordinates :: Bool
gl_REND_screen_coordinates = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_REND_screen_coordinates" Set String
extensions
{-# NOINLINE gl_REND_screen_coordinates #-}
glGetS3S3TC :: MonadIO m => m Bool
glGetS3S3TC :: m Bool
glGetS3S3TC = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_S3_s3tc")
gl_S3_s3tc :: Bool
gl_S3_s3tc :: Bool
gl_S3_s3tc = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_S3_s3tc" Set String
extensions
{-# NOINLINE gl_S3_s3tc #-}
glGetSGIColorMatrix :: MonadIO m => m Bool
glGetSGIColorMatrix :: m Bool
glGetSGIColorMatrix = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGI_color_matrix")
gl_SGI_color_matrix :: Bool
gl_SGI_color_matrix :: Bool
gl_SGI_color_matrix = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGI_color_matrix" Set String
extensions
{-# NOINLINE gl_SGI_color_matrix #-}
glGetSGIColorTable :: MonadIO m => m Bool
glGetSGIColorTable :: m Bool
glGetSGIColorTable = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGI_color_table")
gl_SGI_color_table :: Bool
gl_SGI_color_table :: Bool
gl_SGI_color_table = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGI_color_table" Set String
extensions
{-# NOINLINE gl_SGI_color_table #-}
glGetSGITextureColorTable :: MonadIO m => m Bool
glGetSGITextureColorTable :: m Bool
glGetSGITextureColorTable = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGI_texture_color_table")
gl_SGI_texture_color_table :: Bool
gl_SGI_texture_color_table :: Bool
gl_SGI_texture_color_table = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGI_texture_color_table" Set String
extensions
{-# NOINLINE gl_SGI_texture_color_table #-}
glGetSGISDetailTexture :: MonadIO m => m Bool
glGetSGISDetailTexture :: m Bool
glGetSGISDetailTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_detail_texture")
gl_SGIS_detail_texture :: Bool
gl_SGIS_detail_texture :: Bool
gl_SGIS_detail_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_detail_texture" Set String
extensions
{-# NOINLINE gl_SGIS_detail_texture #-}
glGetSGISFogFunction :: MonadIO m => m Bool
glGetSGISFogFunction :: m Bool
glGetSGISFogFunction = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_fog_function")
gl_SGIS_fog_function :: Bool
gl_SGIS_fog_function :: Bool
gl_SGIS_fog_function = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_fog_function" Set String
extensions
{-# NOINLINE gl_SGIS_fog_function #-}
glGetSGISGenerateMipmap :: MonadIO m => m Bool
glGetSGISGenerateMipmap :: m Bool
glGetSGISGenerateMipmap = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_generate_mipmap")
gl_SGIS_generate_mipmap :: Bool
gl_SGIS_generate_mipmap :: Bool
gl_SGIS_generate_mipmap = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_generate_mipmap" Set String
extensions
{-# NOINLINE gl_SGIS_generate_mipmap #-}
glGetSGISMultisample :: MonadIO m => m Bool
glGetSGISMultisample :: m Bool
glGetSGISMultisample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_multisample")
gl_SGIS_multisample :: Bool
gl_SGIS_multisample :: Bool
gl_SGIS_multisample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_multisample" Set String
extensions
{-# NOINLINE gl_SGIS_multisample #-}
glGetSGISPixelTexture :: MonadIO m => m Bool
glGetSGISPixelTexture :: m Bool
glGetSGISPixelTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_pixel_texture")
gl_SGIS_pixel_texture :: Bool
gl_SGIS_pixel_texture :: Bool
gl_SGIS_pixel_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_pixel_texture" Set String
extensions
{-# NOINLINE gl_SGIS_pixel_texture #-}
glGetSGISPointLineTexgen :: MonadIO m => m Bool
glGetSGISPointLineTexgen :: m Bool
glGetSGISPointLineTexgen = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_point_line_texgen")
gl_SGIS_point_line_texgen :: Bool
gl_SGIS_point_line_texgen :: Bool
gl_SGIS_point_line_texgen = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_point_line_texgen" Set String
extensions
{-# NOINLINE gl_SGIS_point_line_texgen #-}
glGetSGISPointParameters :: MonadIO m => m Bool
glGetSGISPointParameters :: m Bool
glGetSGISPointParameters = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_point_parameters")
gl_SGIS_point_parameters :: Bool
gl_SGIS_point_parameters :: Bool
gl_SGIS_point_parameters = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_point_parameters" Set String
extensions
{-# NOINLINE gl_SGIS_point_parameters #-}
glGetSGISSharpenTexture :: MonadIO m => m Bool
glGetSGISSharpenTexture :: m Bool
glGetSGISSharpenTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_sharpen_texture")
gl_SGIS_sharpen_texture :: Bool
gl_SGIS_sharpen_texture :: Bool
gl_SGIS_sharpen_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_sharpen_texture" Set String
extensions
{-# NOINLINE gl_SGIS_sharpen_texture #-}
glGetSGISTexture4D :: MonadIO m => m Bool
glGetSGISTexture4D :: m Bool
glGetSGISTexture4D = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture4D")
gl_SGIS_texture4D :: Bool
gl_SGIS_texture4D :: Bool
gl_SGIS_texture4D = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture4D" Set String
extensions
{-# NOINLINE gl_SGIS_texture4D #-}
glGetSGISTextureBorderClamp :: MonadIO m => m Bool
glGetSGISTextureBorderClamp :: m Bool
glGetSGISTextureBorderClamp = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_border_clamp")
gl_SGIS_texture_border_clamp :: Bool
gl_SGIS_texture_border_clamp :: Bool
gl_SGIS_texture_border_clamp = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_border_clamp" Set String
extensions
{-# NOINLINE gl_SGIS_texture_border_clamp #-}
glGetSGISTextureColorMask :: MonadIO m => m Bool
glGetSGISTextureColorMask :: m Bool
glGetSGISTextureColorMask = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_color_mask")
gl_SGIS_texture_color_mask :: Bool
gl_SGIS_texture_color_mask :: Bool
gl_SGIS_texture_color_mask = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_color_mask" Set String
extensions
{-# NOINLINE gl_SGIS_texture_color_mask #-}
glGetSGISTextureEdgeClamp :: MonadIO m => m Bool
glGetSGISTextureEdgeClamp :: m Bool
glGetSGISTextureEdgeClamp = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_edge_clamp")
gl_SGIS_texture_edge_clamp :: Bool
gl_SGIS_texture_edge_clamp :: Bool
gl_SGIS_texture_edge_clamp = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_edge_clamp" Set String
extensions
{-# NOINLINE gl_SGIS_texture_edge_clamp #-}
glGetSGISTextureFilter4 :: MonadIO m => m Bool
glGetSGISTextureFilter4 :: m Bool
glGetSGISTextureFilter4 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_filter4")
gl_SGIS_texture_filter4 :: Bool
gl_SGIS_texture_filter4 :: Bool
gl_SGIS_texture_filter4 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_filter4" Set String
extensions
{-# NOINLINE gl_SGIS_texture_filter4 #-}
glGetSGISTextureLOD :: MonadIO m => m Bool
glGetSGISTextureLOD :: m Bool
glGetSGISTextureLOD = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_lod")
gl_SGIS_texture_lod :: Bool
gl_SGIS_texture_lod :: Bool
gl_SGIS_texture_lod = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_lod" Set String
extensions
{-# NOINLINE gl_SGIS_texture_lod #-}
glGetSGISTextureSelect :: MonadIO m => m Bool
glGetSGISTextureSelect :: m Bool
glGetSGISTextureSelect = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_select")
gl_SGIS_texture_select :: Bool
gl_SGIS_texture_select :: Bool
gl_SGIS_texture_select = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIS_texture_select" Set String
extensions
{-# NOINLINE gl_SGIS_texture_select #-}
glGetSGIXAsync :: MonadIO m => m Bool
glGetSGIXAsync :: m Bool
glGetSGIXAsync = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_async")
gl_SGIX_async :: Bool
gl_SGIX_async :: Bool
gl_SGIX_async = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_async" Set String
extensions
{-# NOINLINE gl_SGIX_async #-}
glGetSGIXAsyncHistogram :: MonadIO m => m Bool
glGetSGIXAsyncHistogram :: m Bool
glGetSGIXAsyncHistogram = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_async_histogram")
gl_SGIX_async_histogram :: Bool
gl_SGIX_async_histogram :: Bool
gl_SGIX_async_histogram = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_async_histogram" Set String
extensions
{-# NOINLINE gl_SGIX_async_histogram #-}
glGetSGIXAsyncPixel :: MonadIO m => m Bool
glGetSGIXAsyncPixel :: m Bool
glGetSGIXAsyncPixel = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_async_pixel")
gl_SGIX_async_pixel :: Bool
gl_SGIX_async_pixel :: Bool
gl_SGIX_async_pixel = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_async_pixel" Set String
extensions
{-# NOINLINE gl_SGIX_async_pixel #-}
glGetSGIXBlendAlphaMinmax :: MonadIO m => m Bool
glGetSGIXBlendAlphaMinmax :: m Bool
glGetSGIXBlendAlphaMinmax = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_blend_alpha_minmax")
gl_SGIX_blend_alpha_minmax :: Bool
gl_SGIX_blend_alpha_minmax :: Bool
gl_SGIX_blend_alpha_minmax = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_blend_alpha_minmax" Set String
extensions
{-# NOINLINE gl_SGIX_blend_alpha_minmax #-}
glGetSGIXCalligraphicFragment :: MonadIO m => m Bool
glGetSGIXCalligraphicFragment :: m Bool
glGetSGIXCalligraphicFragment = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_calligraphic_fragment")
gl_SGIX_calligraphic_fragment :: Bool
gl_SGIX_calligraphic_fragment :: Bool
gl_SGIX_calligraphic_fragment = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_calligraphic_fragment" Set String
extensions
{-# NOINLINE gl_SGIX_calligraphic_fragment #-}
glGetSGIXClipmap :: MonadIO m => m Bool
glGetSGIXClipmap :: m Bool
glGetSGIXClipmap = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_clipmap")
gl_SGIX_clipmap :: Bool
gl_SGIX_clipmap :: Bool
gl_SGIX_clipmap = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_clipmap" Set String
extensions
{-# NOINLINE gl_SGIX_clipmap #-}
glGetSGIXConvolutionAccuracy :: MonadIO m => m Bool
glGetSGIXConvolutionAccuracy :: m Bool
glGetSGIXConvolutionAccuracy = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_convolution_accuracy")
gl_SGIX_convolution_accuracy :: Bool
gl_SGIX_convolution_accuracy :: Bool
gl_SGIX_convolution_accuracy = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_convolution_accuracy" Set String
extensions
{-# NOINLINE gl_SGIX_convolution_accuracy #-}
glGetSGIXDepthTexture :: MonadIO m => m Bool
glGetSGIXDepthTexture :: m Bool
glGetSGIXDepthTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_depth_texture")
gl_SGIX_depth_texture :: Bool
gl_SGIX_depth_texture :: Bool
gl_SGIX_depth_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_depth_texture" Set String
extensions
{-# NOINLINE gl_SGIX_depth_texture #-}
glGetSGIXFlushRaster :: MonadIO m => m Bool
glGetSGIXFlushRaster :: m Bool
glGetSGIXFlushRaster = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_flush_raster")
gl_SGIX_flush_raster :: Bool
gl_SGIX_flush_raster :: Bool
gl_SGIX_flush_raster = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_flush_raster" Set String
extensions
{-# NOINLINE gl_SGIX_flush_raster #-}
glGetSGIXFogOffset :: MonadIO m => m Bool
glGetSGIXFogOffset :: m Bool
glGetSGIXFogOffset = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_fog_offset")
gl_SGIX_fog_offset :: Bool
gl_SGIX_fog_offset :: Bool
gl_SGIX_fog_offset = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_fog_offset" Set String
extensions
{-# NOINLINE gl_SGIX_fog_offset #-}
glGetSGIXFragmentLighting :: MonadIO m => m Bool
glGetSGIXFragmentLighting :: m Bool
glGetSGIXFragmentLighting = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_fragment_lighting")
gl_SGIX_fragment_lighting :: Bool
gl_SGIX_fragment_lighting :: Bool
gl_SGIX_fragment_lighting = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_fragment_lighting" Set String
extensions
{-# NOINLINE gl_SGIX_fragment_lighting #-}
glGetSGIXFramezoom :: MonadIO m => m Bool
glGetSGIXFramezoom :: m Bool
glGetSGIXFramezoom = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_framezoom")
gl_SGIX_framezoom :: Bool
gl_SGIX_framezoom :: Bool
gl_SGIX_framezoom = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_framezoom" Set String
extensions
{-# NOINLINE gl_SGIX_framezoom #-}
glGetSGIXIglooInterface :: MonadIO m => m Bool
glGetSGIXIglooInterface :: m Bool
glGetSGIXIglooInterface = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_igloo_interface")
gl_SGIX_igloo_interface :: Bool
gl_SGIX_igloo_interface :: Bool
gl_SGIX_igloo_interface = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_igloo_interface" Set String
extensions
{-# NOINLINE gl_SGIX_igloo_interface #-}
glGetSGIXInstruments :: MonadIO m => m Bool
glGetSGIXInstruments :: m Bool
glGetSGIXInstruments = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_instruments")
gl_SGIX_instruments :: Bool
gl_SGIX_instruments :: Bool
gl_SGIX_instruments = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_instruments" Set String
extensions
{-# NOINLINE gl_SGIX_instruments #-}
glGetSGIXInterlace :: MonadIO m => m Bool
glGetSGIXInterlace :: m Bool
glGetSGIXInterlace = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_interlace")
gl_SGIX_interlace :: Bool
gl_SGIX_interlace :: Bool
gl_SGIX_interlace = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_interlace" Set String
extensions
{-# NOINLINE gl_SGIX_interlace #-}
glGetSGIXIrInstrument1 :: MonadIO m => m Bool
glGetSGIXIrInstrument1 :: m Bool
glGetSGIXIrInstrument1 = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_ir_instrument1")
gl_SGIX_ir_instrument1 :: Bool
gl_SGIX_ir_instrument1 :: Bool
gl_SGIX_ir_instrument1 = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_ir_instrument1" Set String
extensions
{-# NOINLINE gl_SGIX_ir_instrument1 #-}
glGetSGIXListPriority :: MonadIO m => m Bool
glGetSGIXListPriority :: m Bool
glGetSGIXListPriority = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_list_priority")
gl_SGIX_list_priority :: Bool
gl_SGIX_list_priority :: Bool
gl_SGIX_list_priority = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_list_priority" Set String
extensions
{-# NOINLINE gl_SGIX_list_priority #-}
glGetSGIXPixelTexture :: MonadIO m => m Bool
glGetSGIXPixelTexture :: m Bool
glGetSGIXPixelTexture = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_pixel_texture")
gl_SGIX_pixel_texture :: Bool
gl_SGIX_pixel_texture :: Bool
gl_SGIX_pixel_texture = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_pixel_texture" Set String
extensions
{-# NOINLINE gl_SGIX_pixel_texture #-}
glGetSGIXPixelTiles :: MonadIO m => m Bool
glGetSGIXPixelTiles :: m Bool
glGetSGIXPixelTiles = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_pixel_tiles")
gl_SGIX_pixel_tiles :: Bool
gl_SGIX_pixel_tiles :: Bool
gl_SGIX_pixel_tiles = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_pixel_tiles" Set String
extensions
{-# NOINLINE gl_SGIX_pixel_tiles #-}
glGetSGIXPolynomialFFD :: MonadIO m => m Bool
glGetSGIXPolynomialFFD :: m Bool
glGetSGIXPolynomialFFD = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_polynomial_ffd")
gl_SGIX_polynomial_ffd :: Bool
gl_SGIX_polynomial_ffd :: Bool
gl_SGIX_polynomial_ffd = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_polynomial_ffd" Set String
extensions
{-# NOINLINE gl_SGIX_polynomial_ffd #-}
glGetSGIXReferencePlane :: MonadIO m => m Bool
glGetSGIXReferencePlane :: m Bool
glGetSGIXReferencePlane = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_reference_plane")
gl_SGIX_reference_plane :: Bool
gl_SGIX_reference_plane :: Bool
gl_SGIX_reference_plane = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_reference_plane" Set String
extensions
{-# NOINLINE gl_SGIX_reference_plane #-}
glGetSGIXResample :: MonadIO m => m Bool
glGetSGIXResample :: m Bool
glGetSGIXResample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_resample")
gl_SGIX_resample :: Bool
gl_SGIX_resample :: Bool
gl_SGIX_resample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_resample" Set String
extensions
{-# NOINLINE gl_SGIX_resample #-}
glGetSGIXScalebiasHint :: MonadIO m => m Bool
glGetSGIXScalebiasHint :: m Bool
glGetSGIXScalebiasHint = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_scalebias_hint")
gl_SGIX_scalebias_hint :: Bool
gl_SGIX_scalebias_hint :: Bool
gl_SGIX_scalebias_hint = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_scalebias_hint" Set String
extensions
{-# NOINLINE gl_SGIX_scalebias_hint #-}
glGetSGIXShadow :: MonadIO m => m Bool
glGetSGIXShadow :: m Bool
glGetSGIXShadow = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_shadow")
gl_SGIX_shadow :: Bool
gl_SGIX_shadow :: Bool
gl_SGIX_shadow = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_shadow" Set String
extensions
{-# NOINLINE gl_SGIX_shadow #-}
glGetSGIXShadowAmbient :: MonadIO m => m Bool
glGetSGIXShadowAmbient :: m Bool
glGetSGIXShadowAmbient = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_shadow_ambient")
gl_SGIX_shadow_ambient :: Bool
gl_SGIX_shadow_ambient :: Bool
gl_SGIX_shadow_ambient = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_shadow_ambient" Set String
extensions
{-# NOINLINE gl_SGIX_shadow_ambient #-}
glGetSGIXSprite :: MonadIO m => m Bool
glGetSGIXSprite :: m Bool
glGetSGIXSprite = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_sprite")
gl_SGIX_sprite :: Bool
gl_SGIX_sprite :: Bool
gl_SGIX_sprite = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_sprite" Set String
extensions
{-# NOINLINE gl_SGIX_sprite #-}
glGetSGIXSubsample :: MonadIO m => m Bool
glGetSGIXSubsample :: m Bool
glGetSGIXSubsample = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_subsample")
gl_SGIX_subsample :: Bool
gl_SGIX_subsample :: Bool
gl_SGIX_subsample = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_subsample" Set String
extensions
{-# NOINLINE gl_SGIX_subsample #-}
glGetSGIXTagSampleBuffer :: MonadIO m => m Bool
glGetSGIXTagSampleBuffer :: m Bool
glGetSGIXTagSampleBuffer = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_tag_sample_buffer")
gl_SGIX_tag_sample_buffer :: Bool
gl_SGIX_tag_sample_buffer :: Bool
gl_SGIX_tag_sample_buffer = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_tag_sample_buffer" Set String
extensions
{-# NOINLINE gl_SGIX_tag_sample_buffer #-}
glGetSGIXTextureAddEnv :: MonadIO m => m Bool
glGetSGIXTextureAddEnv :: m Bool
glGetSGIXTextureAddEnv = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_texture_add_env")
gl_SGIX_texture_add_env :: Bool
gl_SGIX_texture_add_env :: Bool
gl_SGIX_texture_add_env = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_texture_add_env" Set String
extensions
{-# NOINLINE gl_SGIX_texture_add_env #-}
glGetSGIXTextureCoordinateClamp :: MonadIO m => m Bool
glGetSGIXTextureCoordinateClamp :: m Bool
glGetSGIXTextureCoordinateClamp = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_texture_coordinate_clamp")
gl_SGIX_texture_coordinate_clamp :: Bool
gl_SGIX_texture_coordinate_clamp :: Bool
gl_SGIX_texture_coordinate_clamp = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_texture_coordinate_clamp" Set String
extensions
{-# NOINLINE gl_SGIX_texture_coordinate_clamp #-}
glGetSGIXTextureLODBias :: MonadIO m => m Bool
glGetSGIXTextureLODBias :: m Bool
glGetSGIXTextureLODBias = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_texture_lod_bias")
gl_SGIX_texture_lod_bias :: Bool
gl_SGIX_texture_lod_bias :: Bool
gl_SGIX_texture_lod_bias = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_texture_lod_bias" Set String
extensions
{-# NOINLINE gl_SGIX_texture_lod_bias #-}
glGetSGIXTextureMultiBuffer :: MonadIO m => m Bool
glGetSGIXTextureMultiBuffer :: m Bool
glGetSGIXTextureMultiBuffer = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_texture_multi_buffer")
gl_SGIX_texture_multi_buffer :: Bool
gl_SGIX_texture_multi_buffer :: Bool
gl_SGIX_texture_multi_buffer = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_texture_multi_buffer" Set String
extensions
{-# NOINLINE gl_SGIX_texture_multi_buffer #-}
glGetSGIXTextureScaleBias :: MonadIO m => m Bool
glGetSGIXTextureScaleBias :: m Bool
glGetSGIXTextureScaleBias = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_texture_scale_bias")
gl_SGIX_texture_scale_bias :: Bool
gl_SGIX_texture_scale_bias :: Bool
gl_SGIX_texture_scale_bias = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_texture_scale_bias" Set String
extensions
{-# NOINLINE gl_SGIX_texture_scale_bias #-}
glGetSGIXVertexPreclip :: MonadIO m => m Bool
glGetSGIXVertexPreclip :: m Bool
glGetSGIXVertexPreclip = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_vertex_preclip")
gl_SGIX_vertex_preclip :: Bool
gl_SGIX_vertex_preclip :: Bool
gl_SGIX_vertex_preclip = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_vertex_preclip" Set String
extensions
{-# NOINLINE gl_SGIX_vertex_preclip #-}
glGetSGIXYCrCb :: MonadIO m => m Bool
glGetSGIXYCrCb :: m Bool
glGetSGIXYCrCb = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_ycrcb")
gl_SGIX_ycrcb :: Bool
gl_SGIX_ycrcb :: Bool
gl_SGIX_ycrcb = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_ycrcb" Set String
extensions
{-# NOINLINE gl_SGIX_ycrcb #-}
glGetSGIXYCrCbA :: MonadIO m => m Bool
glGetSGIXYCrCbA :: m Bool
glGetSGIXYCrCbA = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_ycrcba")
gl_SGIX_ycrcba :: Bool
gl_SGIX_ycrcba :: Bool
gl_SGIX_ycrcba = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SGIX_ycrcba" Set String
extensions
{-# NOINLINE gl_SGIX_ycrcba #-}
glGetSUNConvolutionBorderModes :: MonadIO m => m Bool
glGetSUNConvolutionBorderModes :: m Bool
glGetSUNConvolutionBorderModes = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUN_convolution_border_modes")
gl_SUN_convolution_border_modes :: Bool
gl_SUN_convolution_border_modes :: Bool
gl_SUN_convolution_border_modes = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUN_convolution_border_modes" Set String
extensions
{-# NOINLINE gl_SUN_convolution_border_modes #-}
glGetSUNGlobalAlpha :: MonadIO m => m Bool
glGetSUNGlobalAlpha :: m Bool
glGetSUNGlobalAlpha = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUN_global_alpha")
gl_SUN_global_alpha :: Bool
gl_SUN_global_alpha :: Bool
gl_SUN_global_alpha = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUN_global_alpha" Set String
extensions
{-# NOINLINE gl_SUN_global_alpha #-}
glGetSUNMeshArray :: MonadIO m => m Bool
glGetSUNMeshArray :: m Bool
glGetSUNMeshArray = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUN_mesh_array")
gl_SUN_mesh_array :: Bool
gl_SUN_mesh_array :: Bool
gl_SUN_mesh_array = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUN_mesh_array" Set String
extensions
{-# NOINLINE gl_SUN_mesh_array #-}
glGetSUNSliceAccum :: MonadIO m => m Bool
glGetSUNSliceAccum :: m Bool
glGetSUNSliceAccum = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUN_slice_accum")
gl_SUN_slice_accum :: Bool
gl_SUN_slice_accum :: Bool
gl_SUN_slice_accum = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUN_slice_accum" Set String
extensions
{-# NOINLINE gl_SUN_slice_accum #-}
glGetSUNTriangleList :: MonadIO m => m Bool
glGetSUNTriangleList :: m Bool
glGetSUNTriangleList = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUN_triangle_list")
gl_SUN_triangle_list :: Bool
gl_SUN_triangle_list :: Bool
gl_SUN_triangle_list = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUN_triangle_list" Set String
extensions
{-# NOINLINE gl_SUN_triangle_list #-}
glGetSUNVertex :: MonadIO m => m Bool
glGetSUNVertex :: m Bool
glGetSUNVertex = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUN_vertex")
gl_SUN_vertex :: Bool
gl_SUN_vertex :: Bool
gl_SUN_vertex = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUN_vertex" Set String
extensions
{-# NOINLINE gl_SUN_vertex #-}
glGetSUNXConstantData :: MonadIO m => m Bool
glGetSUNXConstantData :: m Bool
glGetSUNXConstantData = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUNX_constant_data")
gl_SUNX_constant_data :: Bool
gl_SUNX_constant_data :: Bool
gl_SUNX_constant_data = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_SUNX_constant_data" Set String
extensions
{-# NOINLINE gl_SUNX_constant_data #-}
glGetWINPhongShading :: MonadIO m => m Bool
glGetWINPhongShading :: m Bool
glGetWINPhongShading = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_WIN_phong_shading")
gl_WIN_phong_shading :: Bool
gl_WIN_phong_shading :: Bool
gl_WIN_phong_shading = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_WIN_phong_shading" Set String
extensions
{-# NOINLINE gl_WIN_phong_shading #-}
glGetWINSpecularFog :: MonadIO m => m Bool
glGetWINSpecularFog :: m Bool
glGetWINSpecularFog = m (Set String)
forall (m :: * -> *). MonadIO m => m (Set String)
getExtensions m (Set String) -> (Set String -> m Bool) -> m Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (Bool -> m Bool
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool -> m Bool) -> (Set String -> Bool) -> Set String -> m Bool
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_WIN_specular_fog")
gl_WIN_specular_fog :: Bool
gl_WIN_specular_fog :: Bool
gl_WIN_specular_fog = String -> Set String -> Bool
forall a. Ord a => a -> Set a -> Bool
member String
"GL_WIN_specular_fog" Set String
extensions
{-# NOINLINE gl_WIN_specular_fog #-}