remove next lesson's code

This commit is contained in:
nek0 2020-05-17 13:04:30 +02:00
parent 38a7c098dd
commit 2ad52f5ba2

View file

@ -135,8 +135,6 @@ main = do
sp <- createShaderProgram vertSrc fragSrc
GL.currentProgram $= Just sp
err <- get GL.errors
print $ "pre-loop errors: " <> show err
-- -- EVENTING AND DRAWING
@ -161,10 +159,7 @@ main = do
GL.clear [GL.ColorBuffer]
-- the actual drawing happens here
void $ get GL.errors
GL.drawElements GL.Triangles 6 GL.UnsignedInt nullPtr
err <- get GL.errors
when (not $ null err) (print $ "loop errors: " <> show err)
-- make GL finish things up
-- GL.flush