Refactor

src/Dodge/Render.hs

@@ -44,7 +44,6 @@ doDrawing win pdata u = do
         (wallPointsCol, windowPoints, wallSPics) = wallsToDraw w
         lightPoints = lightsToRender cfig (w ^. cWorld . camPos) (w ^. cWorld . lWorld)
         viewFroms@(V2 vfx vfy) = w ^. cWorld . camPos . camViewFrom
-        viewFrom3d = Vector3 vfx vfy 20
         shadV = _pictureShaders pdata
         lwShad = _lightingWallShadShader pdata
     -- bind as much data into vbos as feasible at this point

src/Dodge/Render/Shadow.hs

@@ -2,7 +2,7 @@ module Dodge.Render.Shadow where
 
 import Shader.Parameters
 import Shader.ExtraPrimitive
-import Graphics.Rendering.OpenGL (currentProgram, ($=), bindVertexArrayObject, bindBuffer
+import Graphics.Rendering.OpenGL ( ($=), bindVertexArrayObject, bindBuffer
     , BufferTarget (..), bufferSubData, TransferDirection (..)
     )
 import Graphics.GL.Core43