Commit before attempting to make storage of shaders mutable

2021-08-12 06:11:08 +02:00
parent 4c9a3c8b3c
commit 0138f7b940
3 changed files with 10 additions and 18 deletions
@@ -161,11 +161,10 @@ pokeBindFoldableLayer
    :: MV.MVector (PrimState IO) VShader
    -> UMV.MVector (PrimState IO) Int
    -> Picture
-    -> IO (IM.IntMap (PicShads Int))
+    -> IO ()
 pokeBindFoldableLayer shadV counts m = do
-    slist'' <- pokeLayVerxs shadV counts m
+    pokeLayVerxs shadV counts m
    bindShaderLayers shadV counts
-    return slist''

 renderFoldable
    :: MV.MVector (PrimState IO) VShader