diff --git a/src/Draw.hs b/src/Draw.hs index 5f5b730..a8dc679 100644 --- a/src/Draw.hs +++ b/src/Draw.hs @@ -73,8 +73,8 @@ initGL = do GL.clearColor $= (GL.Color4 0 0 1 1 :: GL.Color4 Float) return GLvebo - { giVBO = vertexBufferObject - , giEBO = elementBufferObject + { glVBO = vertexBufferObject + , glEBO = elementBufferObject } initVAO :: IO () diff --git a/src/Types.hs b/src/Types.hs index a6e3cfc..fba1b35 100644 --- a/src/Types.hs +++ b/src/Types.hs @@ -32,6 +32,6 @@ data State = State } data GLvebo = GLvebo - { giVBO :: GL.BufferObject - , giEBO :: GL.BufferObject + { glVBO :: GL.BufferObject + , glEBO :: GL.BufferObject }