diff --git a/src/Main.hs b/src/Main.hs index cee5df1..134fd0d 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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