Use Fold for rendering

2021-08-02 02:14:09 +02:00
parent 54c912224b
commit 12e7af0755
4 changed files with 21 additions and 7 deletions
@@ -171,7 +171,7 @@ pokeBindFoldableLayer
 pokeBindFoldableLayer pdata m = do
    let shads = _pictureShaders pdata

-    slist'' <- pokeLayVerxsPart (fmap (_vaoVBO . _vshaderVAO) shads) m (pure $ pure 0)
+    slist'' <- pokeLayVerxsFold (fmap (_vaoVBO . _vshaderVAO) shads) m
    bindShaderLay shads slist''

    return slist''