Cleanup

src/Render.hs

@@ -137,6 +137,18 @@ createLightMap pdata lightPoints nWalls nSils nCaps shadsdrawtype toPos drawCPUS
     glDisable GL_CULL_FACE
     glDisable GL_STENCIL_TEST
 
+instanceLightMap ::
+    RenderData ->
+    [(Point3, Float, Point3)] -> -- Lights
+    -- | number of walls
+    Int ->
+    -- | number of silhoutte lines to draw
+    Int ->
+    -- | number of "caps" to attempt to draw
+    Int ->
+    -- | the texture object giving positions
+    TO ->
+    IO ()
 instanceLightMap pdata lightPoints nWalls nSils nCaps toPos = do
     let llinesShad = _lightingLineShadowShader pdata
         lcapShad = _lightingCapShader pdata