Store picture shaders in mutable vector

2021-08-12 06:29:36 +02:00
parent 0138f7b940
commit 62af1402ad
4 changed files with 19 additions and 13 deletions
@@ -8,6 +8,9 @@ import Shader.Data

 import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
 import Control.Lens
+import qualified Data.Vector.Mutable as MV
+import Control.Monad.Primitive
+
 data RenderData = RenderData
    { _lightingOccludeShader    :: FullShader
    , _lightingWallShader       :: FullShader
@@ -23,7 +26,7 @@ data RenderData = RenderData
    , _colorBlurShader          :: FullShader
    , _barrelShader             :: FullShader
    , _grayscaleShader          :: FullShader
-    , _pictureShaders           :: PicShads VShader
+    , _pictureShaders           :: MV.MVector (PrimState IO) VShader
    , _fbo2                     :: (FramebufferObject, TextureObject)
    , _fbo3                     :: (FramebufferObject, TextureObject)
    , _fboFourth1 :: (FramebufferObject, TextureObject)