Cleanup

src/Dodge/Render.hs

@@ -39,7 +39,7 @@ doDrawing pdata u = do
         wins@(V2 winx winy) = V2 (_windowX cfig) (_windowY cfig)
         resFact             = resFactorNum $ cfig ^. graphics_resolution_factor
         (wallPointsCol,windowPoints,wallSPics) = wallsToDrawStreams cfig w
-        lightPoints             = lightsForGloom cfig w
+        lightPoints             = lightsToRender cfig w
         viewFroms@(V2 vfx vfy)  = _cameraViewFrom w
         viewFrom3d              = Vector3 vfx vfy 20
         shadV   = _pictureShaders pdata
@@ -107,7 +107,7 @@ doDrawing pdata u = do
     currentProgram $= Just (_shadProg lwShad)
     uniform (head $  _shadUnis lwShad) $= viewFrom3d
     bindVertexArrayObject $= Just (_vao $ _shadVAO lwShad)
-    when (not (debugOn Remove_LOS cfig)) $ glDrawArrays 
+    unless (debugOn Remove_LOS cfig) $ glDrawArrays 
         (marshalEPrimitiveMode $ _shadPrim lwShad) 
         0 
         (fromIntegral nWalls)