Move texture objects to openglraw

src/Shader/AuxAddition.hs

@@ -38,7 +38,7 @@ addTexture2D nlev minfilt magfilt texpath shad = do
     let texdata = convertRGBA8 cmap
     let wtex = fromIntegral $ imageWidth  texdata
         htex = fromIntegral $ imageHeight texdata
-    texname <- mglCreateSingle $ glCreateTextures GL_TEXTURE_2D
+    texname <- mglCreate $ glCreateTextures GL_TEXTURE_2D
     glTextureStorage2D texname nlev GL_RGBA8 wtex htex
     VS.unsafeWith (imageData texdata) $ \ptr -> do
         glTextureSubImage2D texname 0 0 0 wtex htex GL_RGBA GL_UNSIGNED_BYTE ptr
@@ -69,7 +69,7 @@ addTextureArray texturePath shad = do
     print err
     Right cmap <- readImage texturePath
     let texdata = convertRGBA8 cmap
-    texname <- mglCreateSingle $ glCreateTextures GL_TEXTURE_2D_ARRAY
+    texname <- mglCreate $ glCreateTextures GL_TEXTURE_2D_ARRAY
     glTextureStorage3D texname 3 GL_RGBA8 32 32 64
     VS.unsafeWith (imageData texdata) $ \ptr -> do
         glTextureSubImage3D texname 0 0 0 0 32 32 64 GL_RGBA GL_UNSIGNED_BYTE ptr

src/Shader/Compile.hs

@@ -129,7 +129,7 @@ setupVAO = setupVAOSized numDrawableElements
 
 setupVAOSized :: Int -> [Int] -> IO VAO
 setupVAOSized ndraw sizes = do
-    vaoname <- mglCreateSingle glCreateVertexArrays
+    vaoname <- mglCreate glCreateVertexArrays
     glBindVertexArray vaoname
     theVBO <- setupVBOSized ndraw vaoname sizes
     return $
@@ -142,7 +142,7 @@ setupVBOSized :: Int -> GLuint -> [Int] -> IO VBO
 setupVBOSized ndraw vao sizes = do
     --vboName <- genObjectName
     --bindBuffer ArrayBuffer $= Just vboName
-    vboname <- mglCreateSingle glCreateBuffers
+    vboname <- mglCreate glCreateBuffers
     glBindBuffer GL_ARRAY_BUFFER vboname
     forM_ (zip3 [0 ..] sizes offs) $ \(loc, siz, off) -> do
         setupVertexAttribPointer vao vboname loc siz strd off