Map an "isometric" matrix to a static buffer

src/Shader/Bind.hs

@@ -1,7 +1,6 @@
 module Shader.Bind
     ( bindShaderLayers
     , bindShaderBuffers
-    , bindShaderBuffers'
     , bindShader
     ) where
 import Shader.Data
@@ -29,10 +28,7 @@ bindShaderLayers shads counts = MV.imapM_ f shads
     f i shad = do
         let theVBO = _vaoVBO $ _shadVAO' shad
             stride = sum $ _vboAttribSizes theVBO
-        glBindBuffer GL_ARRAY_BUFFER (_vboName theVBO)
         VFSM.mapM_ (g stride theVBO) $ VFSM.enumFromStepN 0 1 6 -- [0..5]
-        --S.mapM_ (g stride theVBO) $ S.each [0..5]
-        
       where
         g stride theVBO lay = do
             numVs <- UMV.unsafeRead counts $ lay * 6 + i
@@ -54,8 +50,3 @@ bindShaderBuffers :: [FullShader] -> [Int] -> IO ()
 bindShaderBuffers = zipWithM_ f
   where 
     f fs i = bindArrayBuffers i $ _vaoVBO $ _shadVAO' fs
-
-bindShaderBuffers' :: [FullShader] -> [Int] -> IO ()
-bindShaderBuffers' = zipWithM_ f
-  where 
-    f fs i = bindArrayBuffers i $ _vaoVBO $ _shadVAO' fs

src/Shader/Compile.hs

@@ -143,7 +143,6 @@ setupVBOSized ndraw vao sizes = do
     --vboName <- genObjectName
     --bindBuffer ArrayBuffer $= Just vboName
     vboname <- mglCreate glCreateBuffers
-    glBindBuffer GL_ARRAY_BUFFER vboname
     forM_ (zip3 [0 ..] sizes offs) $ \(loc, siz, off) -> do
         setupVertexAttribPointer vao vboname loc siz strd off
     thePtr <- mallocArray (strd * ndraw)