Cmoplete transition to vertex attributes for shader compilation

src/Shader/Compile.hs

@@ -41,12 +41,12 @@ makeShaderVBO ::
     -- | shader types
     [GLenum] ->
     -- | The input vertex sizes
-    [Int] ->
+    [VertexAttribute] ->
     PrimitiveMode ->
     IO (Shader, VBO)
 makeShaderVBO s shaderlist sizes pm = do
     prog <- makeSourcedShader s shaderlist
-    (vao, vbo) <- setupVBOVAO (toFloatVAs sizes)
+    (vao, vbo) <- setupVBOVAO (sizes)
     return
         ( Shader
             { _shaderUINT = prog
@@ -62,12 +62,12 @@ makeShaderEBO ::
     -- | shader types
     [GLenum] ->
     -- | The input vertex sizes
-    [Int] ->
+    [VertexAttribute] ->
     PrimitiveMode ->
     VBO ->
     IO (Shader, EBO)
 makeShaderEBO s shaderlist sizes pm vbo = do
-    shad <- makeShaderUsingVBO s shaderlist (toFloatVAs sizes) pm vbo
+    shad <- makeShaderUsingVBO s shaderlist sizes pm vbo
     ebo <- setupEBO (shad ^. shaderVAO)
     glVertexArrayElementBuffer (shad ^. shaderVAO . vaoName) (ebo ^. eboName)
     return