From 1a924e70efd45b3a289f1514a1189a044a6f0b89 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 17 May 2020 13:06:09 +0200 Subject: [PATCH] put error printing in place --- src/Main.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/Main.hs b/src/Main.hs index 134fd0d..cee5df1 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -135,6 +135,8 @@ main = do sp <- createShaderProgram vertSrc fragSrc GL.currentProgram $= Just sp + err <- get GL.errors + print $ "pre-loop errors: " <> show err -- -- EVENTING AND DRAWING @@ -159,7 +161,10 @@ 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