Implement custom poking for vertices--speed regression?

src/Preload/Render.hs

@@ -38,7 +38,7 @@ preloadRender = do
         , nullPtr
         , DynamicDraw
         )
-    let wpVBO = VBO {_vbo = wpVBOname, _vboPointer = wpVBOptr, _vboAttribSizes = [4,4], _vboStride = 8}
+    let wpVBO = VBO {_vbo = wpVBOname, _vboPtr = wpVBOptr, _vboAttribSizes = [4,4], _vboStride = 8}
     wpVAOname <- genObjectName
     bindVertexArrayObject $= Just wpVAOname
     bindBuffer ArrayBuffer $= Just wpVBOname
@@ -74,11 +74,11 @@ preloadRender = do
 -- fullscreen shaders
     fullscreenAlphaHalveShad <- makeShaderSized "fullscreen/alphaHalve" [vert,frag] [2] 4 ETriangleStrip $
         const cornerListNoCoord
-    pokeArray (_vboPointer $ _vaoVBO $ _shaderVAO fullscreenAlphaHalveShad) $ concat cornerListNoCoord
+    pokeArray (shadVBOptr fullscreenAlphaHalveShad) $ concat cornerListNoCoord
 -- texture shaders, no textures attached
     fsShad <- makeShaderSized "texture/simple" [vert,frag] [2,2] 4 ETriangleStrip $ const cornerList
     -- note we directly poke the shader vertex data here
-    pokeArray (_vboPointer $ _vaoVBO $ _shaderVAO fsShad) $ concat cornerList
+    pokeArray (shadVBOptr fsShad) $ concat cornerList
     bloomBlurShad <- makeShaderUsingShaderVAO "texture/bloomBlur" [vert,frag] ETriangleStrip fsShad
     colorBlurShad <- makeShaderUsingShaderVAO "texture/colorBlur" [vert,frag] ETriangleStrip fsShad
     grayscaleShad <- makeShaderUsingShaderVAO "texture/grayscale" [vert,frag] ETriangleStrip fsShad