Cleanup

src/Data/Preload/Render.hs

@@ -55,7 +55,7 @@ data RenderData = RenderData
     , _chasmVBO :: VBO
     , _chasmShader :: Shader
     , _wallVBO :: VBO
-    , _wallShader :: Shader
+--    , _wallShader :: Shader
     , _cloudVBO :: VBO
     , _cloudShader :: Shader
     , _cloudEBO :: EBO

src/Preload/Render.hs

@@ -94,7 +94,7 @@ preloadRender = do
     let wallverxstrd = 8
     wallvbo <- setupVBO (floatSize * wallverxstrd)
     winvbo <- setupVBO (floatSize * 8)
-    wallshader <- makeShaderUsingVBO "wall/basic" [vert, geom, frag] (toFloatVAs [4, 4]) pmPoints wallvbo
+--    wallshader <- makeShaderUsingVBO "wall/basic" [vert, geom, frag] (toFloatVAs [4, 4]) pmPoints wallvbo
     putStrLn "Setup lighting shaders"
     lightingWallShadShad <-
         --makeShaderUsingVBO "lighting/wallShadow" [vert, geom] (toFloatVAs [4]) pmPoints wallvbo
@@ -241,7 +241,7 @@ preloadRender = do
             , _chasmVBO = chasmvbo
             , _chasmShader = chasmshader
             , _wallVBO = wallvbo
-            , _wallShader = wallshader
+--            , _wallShader = wallshader
             , _cloudVBO = cloudvbo
             , _cloudShader = cloudshader
             , _cloudEBO = cloudebo