Cleanup

src/Dodge/Render.hs

@@ -47,8 +47,8 @@ doDrawing pdata u = do
     -- 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,7 +131,12 @@ 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