Updated OpenGL registry to fdaa98e456. Bumped version to 3.3.4.1.

The commit after that changes the schema, see: KhronosGroup/OpenGL-Registry#335 KhronosGroup/OpenGL-Registry#343 To follow these changes, we will need to massage the registry processor accordingly, but this will be done later.
haskell-opengl · Nov 14, 2021 · 53c694c · 53c694c
1 parent c0ea239
commit 53c694c
Show file tree

Hide file tree

Showing 8 changed files with 141 additions and 50 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -1,6 +1,8 @@
 3.3.4.1
 -------
-* Relaxed upper version bound for `bytestring`.
+* Updated OpenGL registry to fdaa98e456.
+* Relaxed upper version bounds for `bytestring` and `transformers`.
+* Fixed OpenBSD build.
 
 3.3.4.0
 -------

diff --git a/OpenGLRaw.cabal b/OpenGLRaw.cabal
@@ -1,5 +1,5 @@
 name: OpenGLRaw
-version: 3.3.4.0
+version: 3.3.4.1
 synopsis: A raw binding for the OpenGL graphics system
 description:
   OpenGLRaw is a raw Haskell binding for the OpenGL 4.6 graphics system and

diff --git a/RegistryProcessor/OpenGL-Registry b/RegistryProcessor/OpenGL-Registry
diff --git a/src/Graphics/GL/Functions/F01.hs b/src/Graphics/GL/Functions/F01.hs
@@ -1245,7 +1245,7 @@ ptr_glBindParameterEXT = unsafePerformIO $ getCommand "glBindParameterEXT"
 
 glBindProgramARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @program@.
   -> m ()
 glBindProgramARB v1 v2 = liftIO $ dyn19 ptr_glBindProgramARB v1 v2

diff --git a/src/Graphics/GL/Functions/F12.hs b/src/Graphics/GL/Functions/F12.hs
@@ -155,7 +155,7 @@ ptr_glGetProgramEnvParameterIuivNV = unsafePerformIO $ getCommand "glGetProgramE
 
 glGetProgramEnvParameterdvARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> Ptr GLdouble -- ^ @params@ pointing to @4@ elements of type @GLdouble@.
   -> m ()
@@ -169,7 +169,7 @@ ptr_glGetProgramEnvParameterdvARB = unsafePerformIO $ getCommand "glGetProgramEn
 
 glGetProgramEnvParameterfvARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> Ptr GLfloat -- ^ @params@ pointing to @4@ elements of type @GLfloat@.
   -> m ()
@@ -243,7 +243,7 @@ ptr_glGetProgramLocalParameterIuivNV = unsafePerformIO $ getCommand "glGetProgra
 
 glGetProgramLocalParameterdvARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> Ptr GLdouble -- ^ @params@ pointing to @4@ elements of type @GLdouble@.
   -> m ()
@@ -257,7 +257,7 @@ ptr_glGetProgramLocalParameterdvARB = unsafePerformIO $ getCommand "glGetProgram
 
 glGetProgramLocalParameterfvARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> Ptr GLfloat -- ^ @params@ pointing to @4@ elements of type @GLfloat@.
   -> m ()
@@ -523,8 +523,8 @@ ptr_glGetProgramStageiv = unsafePerformIO $ getCommand "glGetProgramStageiv"
 
 glGetProgramStringARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
-  -> GLenum -- ^ @pname@ of type [ProgramStringPropertyARB](Graphics-GL-Groups.html#ProgramStringPropertyARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
+  -> GLenum -- ^ @pname@ of type [ProgramStringProperty](Graphics-GL-Groups.html#ProgramStringProperty).
   -> Ptr a -- ^ @string@ pointing to @COMPSIZE(target,pname)@ elements of type @a@.
   -> m ()
 glGetProgramStringARB v1 v2 v3 = liftIO $ dyn250 ptr_glGetProgramStringARB v1 v2 v3
@@ -580,7 +580,7 @@ ptr_glGetProgramiv = unsafePerformIO $ getCommand "glGetProgramiv"
 
 glGetProgramivARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLenum -- ^ @pname@ of type [ProgramPropertyARB](Graphics-GL-Groups.html#ProgramPropertyARB).
   -> Ptr GLint -- ^ @params@ pointing to @1@ element of type @GLint@.
   -> m ()

diff --git a/src/Graphics/GL/Functions/F20.hs b/src/Graphics/GL/Functions/F20.hs
@@ -1206,7 +1206,7 @@ ptr_glProgramBufferParametersfvNV = unsafePerformIO $ getCommand "glProgramBuffe
 -- | The vector equivalent of this command is 'glProgramEnvParameter4dvARB'.
 glProgramEnvParameter4dARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> GLdouble -- ^ @x@.
   -> GLdouble -- ^ @y@.
@@ -1223,7 +1223,7 @@ ptr_glProgramEnvParameter4dARB = unsafePerformIO $ getCommand "glProgramEnvParam
 
 glProgramEnvParameter4dvARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> Ptr GLdouble -- ^ @params@ pointing to @4@ elements of type @GLdouble@.
   -> m ()
@@ -1238,7 +1238,7 @@ ptr_glProgramEnvParameter4dvARB = unsafePerformIO $ getCommand "glProgramEnvPara
 -- | The vector equivalent of this command is 'glProgramEnvParameter4fvARB'.
 glProgramEnvParameter4fARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> GLfloat -- ^ @x@.
   -> GLfloat -- ^ @y@.
@@ -1255,7 +1255,7 @@ ptr_glProgramEnvParameter4fARB = unsafePerformIO $ getCommand "glProgramEnvParam
 
 glProgramEnvParameter4fvARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> Ptr GLfloat -- ^ @params@ pointing to @4@ elements of type @GLfloat@.
   -> m ()
@@ -1333,7 +1333,7 @@ ptr_glProgramEnvParameterI4uivNV = unsafePerformIO $ getCommand "glProgramEnvPar
 
 glProgramEnvParameters4fvEXT
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> GLsizei -- ^ @count@.
   -> Ptr GLfloat -- ^ @params@ pointing to @count*4@ elements of type @GLfloat@.
@@ -1379,7 +1379,7 @@ ptr_glProgramEnvParametersI4uivNV = unsafePerformIO $ getCommand "glProgramEnvPa
 -- | The vector equivalent of this command is 'glProgramLocalParameter4dvARB'.
 glProgramLocalParameter4dARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> GLdouble -- ^ @x@.
   -> GLdouble -- ^ @y@.
@@ -1396,7 +1396,7 @@ ptr_glProgramLocalParameter4dARB = unsafePerformIO $ getCommand "glProgramLocalP
 
 glProgramLocalParameter4dvARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> Ptr GLdouble -- ^ @params@ pointing to @4@ elements of type @GLdouble@.
   -> m ()
@@ -1411,7 +1411,7 @@ ptr_glProgramLocalParameter4dvARB = unsafePerformIO $ getCommand "glProgramLocal
 -- | The vector equivalent of this command is 'glProgramLocalParameter4fvARB'.
 glProgramLocalParameter4fARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> GLfloat -- ^ @x@.
   -> GLfloat -- ^ @y@.
@@ -1428,7 +1428,7 @@ ptr_glProgramLocalParameter4fARB = unsafePerformIO $ getCommand "glProgramLocalP
 
 glProgramLocalParameter4fvARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> Ptr GLfloat -- ^ @params@ pointing to @4@ elements of type @GLfloat@.
   -> m ()
@@ -1506,7 +1506,7 @@ ptr_glProgramLocalParameterI4uivNV = unsafePerformIO $ getCommand "glProgramLoca
 
 glProgramLocalParameters4fvEXT
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
   -> GLuint -- ^ @index@.
   -> GLsizei -- ^ @count@.
   -> Ptr GLfloat -- ^ @params@ pointing to @count*4@ elements of type @GLfloat@.

diff --git a/src/Graphics/GL/Functions/F21.hs b/src/Graphics/GL/Functions/F21.hs
@@ -316,8 +316,8 @@ ptr_glProgramPathFragmentInputGenNV = unsafePerformIO $ getCommand "glProgramPat
 
 glProgramStringARB
   :: MonadIO m
-  => GLenum -- ^ @target@ of type [ProgramTargetARB](Graphics-GL-Groups.html#ProgramTargetARB).
-  -> GLenum -- ^ @format@ of type [ProgramFormatARB](Graphics-GL-Groups.html#ProgramFormatARB).
+  => GLenum -- ^ @target@ of type [ProgramTarget](Graphics-GL-Groups.html#ProgramTarget).
+  -> GLenum -- ^ @format@ of type [ProgramFormat](Graphics-GL-Groups.html#ProgramFormat).
   -> GLsizei -- ^ @len@.
   -> Ptr a -- ^ @string@ pointing to @len@ elements of type @a@.
   -> m ()
+1 −1		extensions/ARB/ARB_direct_state_access.txt
+24 −3		extensions/EXT/EXT_disjoint_timer_query.txt
+15 −12		extensions/EXT/EXT_texture_compression_bptc.txt
+1 −1		extensions/KHR/KHR_texture_compression_astc_hdr.txt
+1 −1		extensions/NV/NV_alpha_to_coverage_dither_control.txt
+1 −1		extensions/OES/OES_texture_compression_astc.txt
+146 −39		xml/gl.xml