Commit before simplifying some shader types

src/Shader/Compile.hs

@@ -4,6 +4,7 @@ module Shader.Compile (
     makeShaderEBO,
     makeShader,
     makeShader4,
+    makeShader4UsingVAO,
     makeByteStringShaderUsingVAO,
     makeShaderSized,
     makeShaderUsingVAO,
@@ -93,6 +94,22 @@ makeShader4 s shaderlist sizes strd pm vbo = do
             , _shadTex' = Nothing
             }
 
+makeShader4UsingVAO ::
+    -- | First part of the name of the shader
+    String ->
+    -- | shader types
+    [GLenum] ->
+    GLenum ->
+    VAO ->
+    IO Shader
+makeShader4UsingVAO s shaderlist pm vao = do
+    prog <- makeSourcedShader s shaderlist
+    return $ Shader
+            { _shaderUINT = prog
+            , _shaderVAO = vao
+            , _shaderPrimitive = pm
+            }
+
 setupVBO :: Int -> IO VBO
 setupVBO vertexsize = do
     vboname <- mglCreate glCreateBuffers