Remove unused shader code

src/Shader.hs

@@ -1,5 +1,4 @@
 module Shader (
-    freeShaderPointers',
     drawShaderLay,
     shadVBOptr,
     drawShader,
@@ -18,7 +17,7 @@ drawShaderLay :: Int -> UMV.MVector (PrimState IO) Int -> Int -> (Shader, VBO) -
 drawShaderLay l countsVector shadIn fs = do
     i <- UMV.read countsVector shadIn
     glUseProgram (_shaderUINT $ fst fs)
-    glBindVertexArray $ fs ^. _1 . shaderVAO . vaoName
+    glBindVertexArray $ fs ^. _1 . shaderVAO . unVAO
     glDrawArrays
         (_unPrimitiveMode $ _shaderPrimitive $ fst fs)
         (fromIntegral $ l * numSubElements)
@@ -28,15 +27,12 @@ drawShader :: Shader -> Int -> IO ()
 {-# INLINE drawShader #-}
 drawShader fs i = do
     glUseProgram (_shaderUINT fs)
-    glBindVertexArray $ fs ^. shaderVAO . vaoName
+    glBindVertexArray $ fs ^. shaderVAO . unVAO
     glDrawArrays
         (_unPrimitiveMode $ _shaderPrimitive fs)
         0
         (fromIntegral i)
 
-freeShaderPointers' :: (Shader, VBO) -> IO ()
-freeShaderPointers' = free . _vboPtr . snd
-
 shadVBOptr :: (Shader, VBO) -> Ptr Float
 {-# INLINE shadVBOptr #-}
 shadVBOptr = _vboPtr . snd