Remove unnecessary uniforms

2021-06-10 18:07:26 +02:00
parent 95f8e57e45
commit 02511afa80
10 changed files with 69 additions and 93 deletions
@@ -11,7 +11,7 @@ module Shader.Data
    , vaoBufferTargets

    , shaderProgram
-    , shaderUniform
+    , shaderMatrixUniform
    , 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
-    , _shaderUniform :: UniformLocation
+    , _shaderMatrixUniform :: UniformLocation
    , _shaderVAO :: VAO
    , _shaderPokeStrategy :: a -> [[[Float]]]-- -> F.FoldM IO RenderType Int
    , _shaderDrawPrimitive :: PrimitiveMode