Continue render refactor

src/Shader/Data.hs

@@ -11,7 +11,7 @@ module Shader.Data
     , EPrimitiveMode (..)
 -- | Lens functions
     , vaoName
-    , vaoVBO
+--    , vaoVBO
     , vaoAttribSizes
     , vaoStride
 
@@ -50,7 +50,7 @@ data VAO = VAO
     { _vaoName  :: GLuint
     , _vaoAttribSizes :: [Int]  -- ^ It is not clear to me if this is necessary to store or not
     , _vaoStride      :: Int
-    , _vaoVBO   :: VBO
+--    , _vaoVBO   :: VBO
     }
 {- | Vertex buffer object: contains the reference to the object,
 a pointer to a location with space that can be written to the buffer,
@@ -61,6 +61,7 @@ data VBO = VBO
     , _vboPtr         :: Ptr Float
     , _vboAttribSizes :: [Int]  -- ^ It is not clear to me if this is necessary to store or not
     , _vboStride      :: Int
+    -- add int for AMOUNT of data poked!
     }
 data EBO = EBO
     { _eboName  :: GLuint