Work on distortion shader

src/Shader.hs

@@ -1,13 +1,8 @@
-module Shader (
-    drawShaderLay,
-    shadVBOptr,
-    drawShader,
-) where
+module Shader (drawShaderLay) where
 
 import Control.Lens
 import Control.Monad.Primitive
 import qualified Data.Vector.Unboxed.Mutable as UMV
-import Foreign
 import Graphics.GL.Core45
 import Shader.Data
 import Shader.Parameters
@@ -22,17 +17,3 @@ drawShaderLay l countsVector shadIn fs = do
         (_unPrimitiveMode $ _shaderPrimitive $ fst fs)
         (fromIntegral $ l * numSubElements)
         (fromIntegral i)
-
-drawShader :: Shader -> Int -> IO ()
-{-# INLINE drawShader #-}
-drawShader fs i = do
-    glUseProgram (_shaderUINT fs)
-    glBindVertexArray $ fs ^. shaderVAO . unVAO
-    glDrawArrays
-        (_unPrimitiveMode $ _shaderPrimitive fs)
-        0
-        (fromIntegral i)
-
-shadVBOptr :: (Shader, VBO) -> Ptr Float
-{-# INLINE shadVBOptr #-}
-shadVBOptr = _vboPtr . snd