Redo mutable changes

src/Render.hs

@@ -150,9 +150,9 @@ pokeBindFoldable
     -> IO (PicShads Int)
 pokeBindFoldable shads m = do
     counts <- UMV.replicate 6 0
-    pokeVerxs (fmap (_vaoVBO . _vshaderVAO) shads) counts m
-    shads' <- picShadToMV shads
-    bindShader shads' counts
+    shadV <- picShadToMV shads
+    pokeVerxs shadV counts m
+    bindShader shadV counts
     elist <- vToPicShad counts
     return elist
 
@@ -165,7 +165,8 @@ pokeBindFoldableLayer
     -> IO (IM.IntMap (PicShads Int))
 pokeBindFoldableLayer pdata m = do
     let shads = _pictureShaders pdata
-    slist'' <- pokeLayVerxs (fmap (_vaoVBO . _vshaderVAO) shads) m
+    shadV <- picShadToMV shads
+    slist'' <- pokeLayVerxs shadV m
     bindShaderLay shads slist''
     return slist''