don't throw away errors

2020-05-17 17:29:32 +02:00 · 2020-05-17 17:29:32 +02:00 · b5b59bea7d
commit b5b59bea7d
parent 01b6134331
1 changed files with 0 additions and 1 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@ -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)