diff --git a/src/Main.hs b/src/Main.hs index 382c16e..8c704e5 100644 --- 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)