hunt errors

src/Main.hs

@@ -170,17 +170,8 @@ main = do
       --   <*> pure 1
       -- GL.clearColor $= clearcol
 
-      -- clear buffers before drawing
-      -- GL.clear [GL.ColorBuffer]
-      
       -- -- rebind everything neccessary for draw call
-      -- bind vao
-      --   -- (note the missing bindings to the vertex buffer and the attrib pointer)
-      -- bind ibo
-      -- bind sp
-
-      -- throw away previous errors
-      -- void $ get GL.errors
+      bind sp
 
       incrementValue <- takeMVar increment
       redValue <- takeMVar red
@@ -205,7 +196,7 @@ main = do
         putMVar increment incrementValue
 
       -- make GL finish things up
-      -- GL.flush
+      GL.flush
       -- draw context on screen
       SDL.glSwapWindow window