diff --git a/src/Shader/Compile.hs b/src/Shader/Compile.hs
index 554f4d4f7..c79e2fee2 100644
--- a/src/Shader/Compile.hs
+++ b/src/Shader/Compile.hs
@@ -185,10 +185,17 @@ setupVertexAttribPointer ::
     Int ->
     IO ()
 setupVertexAttribPointer vao vbo loc siz strd off = do
-    vertexAttribPointer (AttribLocation (fi loc))
-        $= (ToFloat, VertexArrayDescriptor (fi' siz) Float (fi'' $ floatSize * strd) (bufferOffset off))
-    vertexAttribArray (AttribLocation (fi loc)) $= Enabled
+--    vertexAttribPointer (AttribLocation (fi loc))
+--        $= (ToFloat, VertexArrayDescriptor (fi' siz) Float (fi'' $ floatSize * strd) (bufferOffset off))
+--    vertexAttribArray (AttribLocation (fi loc)) $= Enabled
+    glVertexArrayVertexBuffer vao 0 vbo 0 (fromIntegral $ floatSize * strd)
+    glEnableVertexArrayAttrib vao loc'
+    glVertexArrayAttribFormat vao loc' siz' GL_FLOAT GL_FALSE (fromIntegral $ floatSize * off)
+    glVertexArrayAttribBinding vao loc' 0
   where
+    loc' = fi loc
+    siz' = fi' siz
+    off' = fi'' off
     fi = fromIntegral
     fi' = fromIntegral
     fi'' = fromIntegral