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
   }