Start to move vbo objects to use DSA

src/Shader/Compile.hs

@@ -141,8 +141,10 @@ setupVAOSized ndraw sizes = do
 
 setupVBOSized :: Int -> [Int] -> IO VBO
 setupVBOSized ndraw sizes = do
-    vboName <- genObjectName
-    bindBuffer ArrayBuffer $= Just vboName
+    --vboName <- genObjectName
+    --bindBuffer ArrayBuffer $= Just vboName
+    vboname <- mglCreateSingle glCreateBuffers
+    glBindBuffer GL_ARRAY_BUFFER vboname
     forM_ (zip3 [0 ..] sizes offs) $ \(loc, siz, off) -> do
         setupVertexAttribPointer loc siz strd off
     thePtr <- mallocArray (strd * ndraw)
@@ -154,7 +156,7 @@ setupVBOSized ndraw sizes = do
            )
     return $
         VBO
-            { _vbo = vboName
+            { _vboName = vboname
             , _vboPtr = thePtr
             , _vboAttribSizes = sizes
             , _vboStride = sum sizes