From cda7bfd068f92446b497e0683b657cdfe8c4c603 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Fri, 8 Feb 2019 09:19:09 +0100
Subject: [PATCH] rename

---
 src/Draw.hs  | 4 ++--
 src/Types.hs | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

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
   }