From 2ad52f5ba2280c74ab5197e7f149c48c4604bb26 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 17 May 2020 13:04:30 +0200 Subject: [PATCH] remove next lesson's code --- src/Main.hs | 5 ----- 1 file changed, 5 deletions(-) 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