Implement custom poking for vertices--speed regression?

src/Shader/Compile.hs

@@ -149,7 +149,7 @@ setupVBO sizes = do
         )
     return $ VBO
         { _vbo = vboName
-        , _vboPointer = thePtr
+        , _vboPtr = thePtr
         , _vboAttribSizes = sizes
         , _vboStride = sum sizes
         }
@@ -172,7 +172,7 @@ setupVBOSized sizes ndraw = do
         )
     return $ VBO
         { _vbo = vboName
-        , _vboPointer = thePtr
+        , _vboPtr = thePtr
         , _vboAttribSizes = sizes
         , _vboStride = sum sizes
         }