This commit is contained in:
nek0 2019-02-08 09:19:09 +01:00
parent 12c074f442
commit cda7bfd068
2 changed files with 4 additions and 4 deletions

View file

@ -73,8 +73,8 @@ initGL = do
GL.clearColor $= (GL.Color4 0 0 1 1 :: GL.Color4 Float) GL.clearColor $= (GL.Color4 0 0 1 1 :: GL.Color4 Float)
return GLvebo return GLvebo
{ giVBO = vertexBufferObject { glVBO = vertexBufferObject
, giEBO = elementBufferObject , glEBO = elementBufferObject
} }
initVAO :: IO () initVAO :: IO ()

View file

@ -32,6 +32,6 @@ data State = State
} }
data GLvebo = GLvebo data GLvebo = GLvebo
{ giVBO :: GL.BufferObject { glVBO :: GL.BufferObject
, giEBO :: GL.BufferObject , glEBO :: GL.BufferObject
} }