Start translating shader compilation and linking to openglraw

src/Shader/Data.hs

@@ -6,6 +6,7 @@ module Shader.Data
     , VBO (..)
     , EBO (..)
     , FullShader (..)
+    , FullShader' (..)
     , ShaderTexture (..)
     , EPrimitiveMode (..)
 -- | Lens functions
@@ -22,6 +23,12 @@ module Shader.Data
     , vboStride
     , ebo
     , eboPtr
+
+    , shadProg'
+    , shadVAO'
+    , shadPrim'
+    , shadTex'
+    , shadUnis'
 -- | Synonyms
     , vert
     , geom
@@ -39,6 +46,13 @@ data FullShader = FullShader
     , _shadTex  :: Maybe ShaderTexture
     , _shadUnis :: Vector UniformLocation
     }
+data FullShader' = FullShader'
+    { _shadProg' :: GLuint
+    , _shadVAO'  :: VAO
+    , _shadPrim' :: EPrimitiveMode
+    , _shadTex'  :: Maybe ShaderTexture
+    , _shadUnis' :: Vector UniformLocation
+    }
 {- | Vertex array object: contains the reference to the object,
 and its buffer targets.  -}
 data VAO = VAO
@@ -85,4 +99,5 @@ frag = FragmentShader
 makeLenses ''VAO
 makeLenses ''VBO
 makeLenses ''FullShader
+makeLenses ''FullShader'
 makeLenses ''EBO