Continue shader refactor

2023-04-13 00:43:01 +01:00
parent cd46998e05
commit f104b24e90
7 changed files with 40 additions and 39 deletions
@@ -339,12 +339,12 @@ instanceLightMap cfig nWalls nSils nCaps toPos tanormals lightPoints pdata = do
    glDepthFunc GL_ALWAYS
    glColorMask GL_TRUE GL_TRUE GL_TRUE GL_TRUE
    glStencilFunc GL_EQUAL 0 255
-    glUseProgram (pdata ^. shadowLightShader . _1 . shaderUINT)
+    glUseProgram (pdata ^. shadowLightShader . shaderUINT)
    -- bind world position texture
    glBindTextureUnit 0 (toPos ^. unTO)
    glBindTextureUnit 1 (tanormals ^. unTO)
    glDrawArrays
-        (_unPrimitiveMode $ pdata ^. shadowLightShader . _1 . shaderPrimitive)
+        (_unPrimitiveMode $ pdata ^. shadowLightShader . shaderPrimitive)
        0
        1
    glDisable GL_CULL_FACE