Cleanup

src/Shader/Data.hs

@@ -10,7 +10,7 @@ module Shader.Data
     , ShaderTexture (..)
     , EPrimitiveMode (..)
 -- | Lens functions
-    , vao
+    , vaoName
     , vaoVBO
     , shadProg
     , shadVAO
@@ -60,7 +60,7 @@ data FullShader' = FullShader'
 {- | Vertex array object: contains the reference to the object,
 and its buffer targets.  -}
 data VAO = VAO
-    { _vao      :: VertexArrayObject
+    { _vaoName  :: VertexArrayObject
     , _vaoVBO   :: VBO
     }
 {- | Vertex buffer object: contains the reference to the object,
@@ -78,7 +78,7 @@ data EBO = EBO
     , _eboPtr   :: Ptr GLushort
     }
 {- | Datatype containing the reference to a texture object.  -}
-data ShaderTexture = ShaderTexture
+newtype ShaderTexture = ShaderTexture
     { _textureObject :: GLuint -- DSA style texture, 450 
 --    , _textureTarget :: GLenum
     }