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