Refactor shader code

src/Shader/Data.hs

@@ -5,15 +5,14 @@ module Shader.Data
     ( VAO (..)
     , VBO (..)
     , EBO (..)
---    , FullShader (..)
+    , Shader (..)
     , FullShader (..)
     , ShaderTexture (..)
     , EPrimitiveMode (..)
 -- | Lens functions
     , vaoName
---    , vaoVBO
---    , vaoAttribSizes
---    , vaoStride
+    , shaderUINT
+    , shaderPrimitive
 
     , textureObject
 
@@ -43,6 +42,10 @@ data FullShader = FullShader
     , _shadPrim' :: EPrimitiveMode
     , _shadTex'  :: Maybe ShaderTexture
     }
+data Shader = Shader
+    { _shaderUINT :: GLuint -- should be shaderID
+    , _shaderPrimitive :: GLenum
+    }
 {- | Vertex array object: contains the reference to the object,
 and its buffer targets.  -}
 newtype VAO = VAO
@@ -90,3 +93,4 @@ makeLenses ''VBO
 makeLenses ''FullShader
 makeLenses ''EBO
 makeLenses ''ShaderTexture
+makeLenses ''Shader