don't throw away errors

This commit is contained in:
nek0 2020-05-17 17:29:32 +02:00
parent 01b6134331
commit b5b59bea7d
1 changed files with 0 additions and 1 deletions

View File

@ -187,7 +187,6 @@ main = do
GL.uniform uniLoc $= (GL.Color4 newRed 0.5 0 1 :: GL.Color4 GL.GLfloat)
-- 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)