Cleanup

src/Shader/Compile.hs

@@ -130,7 +130,7 @@ setupVAO = setupVAOSized numDrawableElements
 
 setupVAOSized :: Int -> [Int] -> IO VAO
 setupVAOSized ndraw sizes = do
-    vaoname <- mglCreateSingle glGenVertexArrays
+    vaoname <- mglCreateSingle glCreateVertexArrays
     glBindVertexArray vaoname
     theVBO <- setupVBOSized ndraw sizes
     return $