Continue adding mutability

src/Shader.hs

@@ -23,7 +23,7 @@ import Foreign
 import Control.Monad
 import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
 import Graphics.GL.Core43
-import qualified Data.IntMap.Strict as IM
+--import qualified Data.IntMap.Strict as IM
 --import Data.Bifunctor
 --import Text.RawString.QQ
 --import Linear.Matrix
@@ -41,18 +41,6 @@ bindArrayBuffers numVs theVBO = do
         (fromIntegral $ floatSize * numVs * sum (_vboAttribSizes theVBO)) 
         (_vboPtr theVBO)
 
-bindArrayBuffersLayer :: Int -> Int -> VBO -> IO ()
-bindArrayBuffersLayer lay numVs theVBO = do
-    bindBuffer ArrayBuffer $= Just (_vbo theVBO)
-    bufferSubData 
-        ArrayBuffer 
-        WriteToBuffer 
-        (fromIntegral $ floatSize * stride * numSubElements * lay)
-        (fromIntegral $ floatSize * numVs * stride)
-        (_vboPtr theVBO `plusPtr` (floatSize * stride * numSubElements * lay))
-  where
-    stride = sum $ _vboAttribSizes theVBO
-
 bindShaderLayers :: MV.MVector (PrimState IO) VShader -> UMV.MVector (PrimState IO) Int -> IO ()
 bindShaderLayers shads counts = MV.imapM_ f shads
   where