Use DSA for renderbuffers

src/Shader.hs

@@ -21,7 +21,7 @@ import Control.Monad.Primitive
 import Foreign
 import Graphics.GL.Core45
 
-drawShaderLay :: Int -> UMV.MVector (PrimState IO) Int -> Int -> FullShader' -> IO ()
+drawShaderLay :: Int -> UMV.MVector (PrimState IO) Int -> Int -> FullShader -> IO ()
 {-# INLINE drawShaderLay #-}
 drawShaderLay l countsVector shadIn fs = do 
     i <- UMV.read countsVector shadIn
@@ -40,7 +40,7 @@ drawShaderLay l countsVector shadIn fs = do
         (fromIntegral $ l*numSubElements) 
         (fromIntegral i)
 
-drawShader :: FullShader' -> Int -> IO ()
+drawShader :: FullShader -> Int -> IO ()
 {-# INLINE drawShader #-}
 drawShader fs i = do 
     --currentProgram $= Just (_shadProg fs)
@@ -58,11 +58,11 @@ drawShader fs i = do
         0 
         (fromIntegral i)
 
-freeShaderPointers' :: FullShader' -> IO ()
+freeShaderPointers' :: FullShader -> IO ()
 freeShaderPointers' = free . _vboPtr . _vaoVBO . _shadVAO'
 
 pokeBindFoldable
-    :: MV.MVector (PrimState IO) FullShader'
+    :: MV.MVector (PrimState IO) FullShader
     -> UMV.MVector (PrimState IO) Int
     -> Picture
     -> IO ()
@@ -71,7 +71,7 @@ pokeBindFoldable shadV counts m = do
     bindShader shadV counts
 
 pokeBindFoldableLayer
-    :: MV.MVector (PrimState IO) FullShader'
+    :: MV.MVector (PrimState IO) FullShader
     -> UMV.MVector (PrimState IO) Int
     -> Picture
     -> IO ()
@@ -79,10 +79,10 @@ pokeBindFoldableLayer shadV counts m = do
     pokeLayVerxs shadV counts m
     bindShaderLayers shadV counts
 
-shadVBOptr :: FullShader' -> Ptr Float
+shadVBOptr :: FullShader -> Ptr Float
 {-# INLINE shadVBOptr #-}
 shadVBOptr = _vboPtr . _vaoVBO . _shadVAO'
 
-shadVBOptr' :: FullShader' -> Ptr Float
+shadVBOptr' :: FullShader -> Ptr Float
 {-# INLINE shadVBOptr' #-}
 shadVBOptr' = _vboPtr . _vaoVBO . _shadVAO'