Continue render refactor

2023-03-14 14:11:14 +00:00
parent 35f401d8c8
commit 378af69ca5
12 changed files with 118 additions and 112 deletions
@@ -52,5 +52,5 @@ renderDataResizeUpdate xsize ysize xfull yfull rdata = do
            "bloomBlur"
            [(vert, bbVert), (frag, bbFrag')]
            ETriangleStrip
-            (rdata ^. fullscreenShader . shadVAO')
+            (rdata ^. fullscreenShader . _1 . shadVAO')
    return (rdata'{_bloomBlurShader = bbShad})