hunt errors

This commit is contained in:
nek0 2020-05-22 23:59:29 +02:00
parent c55cb22ee2
commit 3dab16259e

View file

@ -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