Move texture objects to openglraw

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