Remove unnecessary uniforms

src/Picture/Preload.hs

@@ -40,10 +40,10 @@ preloadRender = do
     lsShad <- makeShader "lighting/floor" [vert,geom,frag] [(0,4)] Points 
                     (return . return . flat4)
     wsShad <- makeShader "lighting/occlude" [vert,geom,frag] [(0,4)] Points pokeWPStrat
-                >>= addUniforms ["lightPos","perpMat","facesToDraw"]
+                >>= addUniforms ["lightPos"]
     wlLightShad 
          <- makeShader "lighting/wall" [vert,geom,frag] [(0,4)] Points pokeWPStrat
-                >>= addUniforms ["lightPos","perpMat","radLum"]
+                >>= addUniforms ["lightPos","radLum"]
 -- 2D draw shaders
     bslist <- makeShader "twoD/basic"   [vert,frag]      [(0,3),(1,4)]       Triangles pokeTriStrat
     lslist <- makeShader "twoD/basic"   [vert,frag]      [(0,3),(1,4)]       Lines     pokeLineStrat
@@ -82,12 +82,9 @@ preloadRender = do
 --                >>= addTexture "data/texture/smudgedDirt.png"
 -- blank wallShader
     wlBlank <- makeShader "wall/blank" [vert,geom,frag] [(0,4),(1,4)] Points pokeWPColStrat
---                >>= addTexture "data/texture/grayscaleDirt.png"
-                >>= addUniforms ["perpMat"]
 -- textured wallShader
     wlTexture <- makeShader "wall/texture" [vert,geom,frag] [(0,4),(1,4)] Points pokeWPColStrat
                 >>= addTexture "data/texture/grayscaleDirt.png"
-                >>= addUniforms ["perpMat"]
 -- framebuffer for lighting
     (fbo,fboTO,fboRBO) <- setupFramebufferWithStencil
     framebuf2 <- setupFramebufferWithStencil