Continue mutability changes

2021-08-12 01:43:25 +02:00
parent f1200c4501
commit 27cf763805
3 changed files with 27 additions and 9 deletions
@@ -137,9 +137,10 @@ vboFromType ps sn = case sn of
    _ -> undefined


-pokeLayVerxs :: MV.MVector (PrimState IO) VShader -> [Verx] -> IO (IM.IntMap (PicShads Int))
-pokeLayVerxs vbos vxs = do
-    counts <- UMV.replicate (6*6) 0
+pokeLayVerxs :: MV.MVector (PrimState IO) VShader 
+    -> UMV.MVector (PrimState IO) Int
+    -> [Verx] -> IO (IM.IntMap (PicShads Int))
+pokeLayVerxs vbos counts vxs = do
    VS.mapM_ (pokeLayVerx vbos counts) $ VS.fromList vxs
    vToLayPicShad counts