Refactor EBO to use DSA

2023-03-09 12:49:34 +00:00
parent 2fc08a4d96
commit 01268e4c8a
4 changed files with 55 additions and 30 deletions
@@ -16,7 +16,7 @@ module Shader.Data
    , vboPtr
    , vboAttribSizes
    , vboStride
-    , ebo
+    , eboName
    , eboPtr

    , shadProg'
@@ -59,7 +59,7 @@ data VBO = VBO
    , _vboStride      :: Int
    }
 data EBO = EBO
-    { _ebo      :: BufferObject
+    { _eboName  :: GLuint
    , _eboPtr   :: Ptr GLushort
    }
 {- | Datatype containing the reference to a texture object.  -}