diff --git a/src/Main.hs b/src/Main.hs index 0a64b67..383303f 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -186,7 +186,7 @@ main = do let newRed = redValue + incrementValue -- write data to the uniform - setUniform sp "u_color" (GL.Color4 newRed 0.5 0 1 :: GL.Color4 GL.GLfloat) + -- setUniform sp "u_color" (GL.Color4 newRed 0.5 0 1 :: GL.Color4 GL.GLfloat) -- the actual drawing happens here draw vao ibo sp