Simplify shader records

2025-11-13 14:57:46 +00:00
parent 56aa8c6697
commit 0ea7af4bdd
4 changed files with 19 additions and 52 deletions
@@ -12,10 +12,10 @@ import Shader.Data

 data RenderData = RenderData
    { _shadWallShader :: GLuint
-    , _lightingLineShadowShader :: Shader
-    , _lightingCapShader :: Shader
+    , _lightingLineShadowShader :: GLuint
+    , _lightingCapShader :: GLuint
    , _lightingTextureShader :: Shader
-    , _ceilingStencilShader :: Shader
+    , _ceilingStencilShader :: GLuint
    , _alphaDivideShader :: Shader
 --    , _windowShader :: Shader
    , _windowPullShader :: GLuint
@@ -26,7 +26,7 @@ data RenderData = RenderData
    , _colorBlurShader :: Shader
    , _barrelShader :: (Shader,VBO)
    , _grayscaleShader :: Shader
-    , _shapeShader :: Shader
+    , _shapeShader :: GLuint
    , _shapeEBO :: UintBO
    , _silhouetteEBO :: UintBO
    , _pictureShaders :: MV.MVector (PrimState IO) (Shader,VBO)
@@ -55,8 +55,7 @@ data RenderData = RenderData
    , _winVBO :: VBO
    , _wallVBO :: VBO
    , _cloudVBO :: VBO
-    , _cloudShader :: Shader
--    , _cloudEBO :: UintBO
+    , _cloudShader :: GLuint
    , _screenTextureVAO :: VAO
    , _dummyVAO :: VAO
    }