[HOpenGL] maxTextureUnit bug

[Csaba Hruska]

Hi!

I've found a bug in gl binding.
The unmarshal function is wrong, because in this case there is no
gl_TEXTURE0 offset.

            maxTextureUnit :: GettableStateVar TextureUnit
            maxTextureUnit =
               makeGettableStateVar (getEnum1 unmarshalTextureUnit
GetMaxTextureUnits)

            unmarshalTextureUnit :: GLenum -> TextureUnit
            unmarshalTextureUnit x = TextureUnit (fromIntegral (x -
gl_TEXTURE0))

Cheers,
Csaba Hruska
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.haskell.org/pipermail/hopengl/attachments/20090909/c1da6d33/attachment.html