Cleanup: remove uniforms from shader datatype

2023-03-20 01:19:10 +00:00
parent 33f31aa385
commit 32ecf46343
17 changed files with 24 additions and 99 deletions
@@ -43,7 +43,6 @@ makeShader s shaderlist sizes pm = do
            , _shadVAO = vao
            , _shadPrim' = pm
            , _shadTex' = Nothing
-            , _shadUnis = mempty
            }
            , vbo)

@@ -67,7 +66,6 @@ makeShader4 s shaderlist sizes strd pm vbo = do
            , _shadVAO = vao
            , _shadPrim' = pm
            , _shadTex' = Nothing
-            , _shadUnis = mempty
            }

 setupVBO :: Int -> IO VBO
@@ -108,7 +106,6 @@ makeByteStringShaderUsingVAO s shaderlist pm vao = do
            , _shadVAO = vao
            , _shadPrim' = pm
            , _shadTex' = Nothing
-            , _shadUnis = mempty
            }

 -- | Takes the VAO from elsewhere
@@ -128,7 +125,6 @@ makeShaderUsingVAO s shaderlist pm theVAO = do
            , _shadVAO = theVAO
            , _shadPrim' = pm
            , _shadTex' = Nothing
-            , _shadUnis = mempty
            }

 {- |
@@ -154,7 +150,6 @@ makeShaderSized s shaderlist sizes ndraw pm = do
            , _shadVAO = vao
            , _shadPrim' = pm
            , _shadTex' = Nothing
-            , _shadUnis = mempty
            }
        , vbo)