Continue va change

src/Shader/Compile.hs

@@ -65,7 +65,7 @@ makeShaderEBO ::
     VBO ->
     IO (Shader, EBO)
 makeShaderEBO s shaderlist sizes pm vbo = do
-    shad <- makeShaderUsingVBO s shaderlist sizes pm vbo
+    shad <- makeShaderUsingVBO s shaderlist (toFloatVAs sizes) pm vbo
     ebo <- setupEBO (shad ^. shaderVAO)
     glVertexArrayElementBuffer (shad ^. shaderVAO . vaoName) (ebo ^. eboName)
     return
@@ -79,12 +79,12 @@ makeShaderUsingVBO ::
     -- | shader types
     [GLenum] ->
     -- | The input vertex sizes
-    [Int] ->
+    [VertexAttribute] ->
     PrimitiveMode ->
     VBO ->
     IO Shader
 makeShaderUsingVBO s shaderlist sizes pm vbo = do
-    vao <- setupVAOUsingVBO (toFloatVAs sizes) vbo
+    vao <- setupVAOUsingVBO sizes vbo
     makeShaderUsingVAO s shaderlist pm vao
 
 setupVBO :: Int -> IO VBO