Remove vaoBufferTarget

src/Shader.hs

@@ -3,6 +3,7 @@ module Shader
     , addTexture
     , addUniforms
     , pokeShaders
+    , pokeArrayOff
     --, pokeShader
     , pokeShader'
     --, bindArrayBuffers
@@ -46,12 +47,6 @@ pokeShaders :: [FullShader] -> F.FoldM IO RenderType [Int]
 pokeShaders = traverse pokeShader'
 --pokeShaders = traverse pokeShader
 
-pokeShader :: FullShader -> F.FoldM IO RenderType Int
-pokeShader fs = F.FoldM (pokeRender fls (zip ptrs nAtss))  (return 0) return
-  where 
-    (_,ptrs,nAtss) = unzip3 $ _vaoBufferTargets $ _shaderVAO fs
-    fls = _shaderPokeStrategy fs
-
 pokeShader' :: FullShader -> F.FoldM IO RenderType Int
 pokeShader' fs = F.FoldM (pokeRender' fls ptr stride)  (return 0) return
   where 
@@ -112,7 +107,6 @@ bindArrayBuffers' numVs theVBO = do
 bindShaderBuffers :: [FullShader] -> [Int] -> IO ()
 bindShaderBuffers = zipWithM_ f
   where 
-    --f fs i = bindArrayBuffers i $ _vaoBufferTargets $ _shaderVAO fs
     f fs i = bindArrayBuffers' i $ _vaoVBO $ _shaderVAO fs
 
 drawShaders :: [FullShader] -> [Int] -> IO ()
@@ -189,7 +183,6 @@ setupVAO sizes = do
     theVBO <- setupVBO $ sizes
     return $ VAO 
         { _vao = theVAO
-        , _vaoBufferTargets = ptrs
         , _vaoVBO = theVBO
         }
 
@@ -334,6 +327,4 @@ setPerpMatUniform rot czoom trans wins vFrom shad = do
     return ()
 
 freeShaderPointers :: FullShader -> IO ()
-freeShaderPointers fs = do
-    forM_ (_vaoBufferTargets $ _shaderVAO fs) $ \(_,ptr,_) ->
-        free ptr
+freeShaderPointers fs = free $ _vboPointer $ _vaoVBO $ _shaderVAO fs