Remove unnecessary uniforms

2021-06-10 17:00:53 +02:00
parent 79d2c73dcf
commit 95f8e57e45
2 changed files with 11 additions and 16 deletions
@@ -11,7 +11,7 @@ module Shader.Data
    , vaoBufferTargets

    , shaderProgram
-    , shaderUniforms 
+    , shaderUniform
    , shaderVAO
    , shaderPokeStrategy
    , shaderDrawPrimitive
@@ -32,7 +32,7 @@ data VAO = VAO
 {- | Datatype containing the necessary information for a single shader.  -}
 data FullShader a = FullShader
    { _shaderProgram :: Program
-    , _shaderUniforms :: [UniformLocation]
+    , _shaderUniform :: UniformLocation
    , _shaderVAO :: VAO
    , _shaderPokeStrategy :: a -> [[[Float]]]-- -> F.FoldM IO RenderType Int
    , _shaderDrawPrimitive :: PrimitiveMode