From f4cef370d12f66df3834e6d0c668a15773e018d4 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Tue, 26 Apr 2022 09:15:09 +0100
Subject: [PATCH] Cleanup

---
 src/Dodge/Render.hs | 33 +++++++++++++++++++--------------
 1 file changed, 19 insertions(+), 14 deletions(-)

diff --git a/src/Dodge/Render.hs b/src/Dodge/Render.hs
index 7fc1db420..a4676fce6 100644
--- a/src/Dodge/Render.hs
+++ b/src/Dodge/Render.hs
@@ -37,18 +37,18 @@ doDrawing pdata u = do
         camzoom = _cameraZoom w
         trans   = _cameraCenter w
         wins@(V2 winx winy) = V2 (_windowX cfig) (_windowY cfig)
-        resFact = resFactorNum $ cfig ^. graphics_resolution_factor
+        resFact             = resFactorNum $ cfig ^. graphics_resolution_factor
         (wallPointsCol,windowPoints) = wallsAndWindows cfig w
-        lightPoints     = lightsForGloom w
-        viewFroms@(V2 vfx vfy) = _cameraViewFrom w
-        viewFrom3d = Vector3 vfx vfy 20
-        shadV = _pictureShaders pdata
-        lwShad = _lightingWallShadShader pdata
+        lightPoints             = lightsForGloom w
+        viewFroms@(V2 vfx vfy)  = _cameraViewFrom w
+        viewFrom3d              = Vector3 vfx vfy 20
+        shadV   = _pictureShaders pdata
+        lwShad  = _lightingWallShadShader pdata
     -- bind as much data into vbos as feasible at this point
     -- count mutable vectors setup
     layerCounts  <- UMV.replicate (numLayers*6) 0
-    shapeCounts  <- UMV.replicate 3 (0 :: Int)
-    wlwiflCounts <- UMV.replicate 3 (0 :: Int)
+    shapeCounts  <- UMV.replicate 3 0
+    wlwiflCounts <- UMV.replicate 3 0
     -- attempt to poke in parallel
     let (ws,wp) = worldSPic cfig w
     MP.bindM3 (\ _ _ _ -> return ())
@@ -131,16 +131,21 @@ doDrawing pdata u = do
     drawShader (_textureArrayShader pdata) nFls
     --draw lightmap into its own buffer
     bindFramebuffer Framebuffer $= fst (_fboLighting pdata)
-    createLightMap pdata lightPoints nWalls nSilIndices nIndices 
+    createLightMap 
+        pdata 
+        lightPoints 
+        nWalls 
+        nSilIndices 
+        nIndices 
         (_graphics_object_shadows $ _config u)
         (snd $ snd $ _fboBase pdata)
-    colorMask $= Color4 Enabled Enabled Enabled Enabled
-    clearColor $= Color4 0 0 0 0
+    colorMask   $= Color4 Enabled Enabled Enabled Enabled
+    clearColor  $= Color4 0 0 0 0
     --apply lightmap to base buffer
     bindFramebuffer Framebuffer $= fst (_fboBase pdata)
-    textureBinding Texture2D $= Just (snd $ _fboLighting pdata)
-    blend $= Enabled
-    blendFunc $= (Zero, OneMinusSrcColor)
+    textureBinding Texture2D    $= Just (snd $ _fboLighting pdata)
+    blend       $= Enabled
+    blendFunc   $= (Zero, OneMinusSrcColor)
     drawShader (_fullscreenShader pdata) 4
     --draw bloom onto bloom buffer
     bindFramebuffer Framebuffer $= fst (_fboBloom pdata)