Cleanup shaders

src/Shader/Compile.hs

@@ -4,7 +4,8 @@ module Shader.Compile (
     makeShaderEBO,
     makeShaderVBO,
     makeShaderUsingVBO,
-    makeByteStringShaderUsingVAO,
+    makeShaderProgram,
+--    makeByteStringShaderUsingVAO,
     makeShaderUsingVAO,
     setupVAOUsingVBO,
     setupEBO,
@@ -131,23 +132,6 @@ setupVBOStatic vertexsize = do
     --GL_STATIC_DRAW
     return VBO{_vboName = vboname, _vboPtr = thePtr, _vboVertexBytes = vertexsize}
 
-makeByteStringShaderUsingVAO ::
-    -- | (Arbitrary) name of the shader
-    String ->
-    -- | Filetype extensions and shader data
-    [(GLenum, BS.ByteString)] ->
-    PrimitiveMode ->
-    VAO ->
-    IO Shader
-makeByteStringShaderUsingVAO s shaderlist pm vao = do
-    prog <- makeShaderProgram s shaderlist
-    return
-        Shader
-            { _shaderUINT = prog
-            , _shaderVAO = vao
-            , _shaderPrimitive = pm
-            }
-
 -- | Takes the VAO from elsewhere
 makeShaderUsingVAO ::
     -- | First part of the name of the shader