From b5b59bea7d6314c4ad78e66af492c882b7ff2fd8 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Sun, 17 May 2020 17:29:32 +0200
Subject: [PATCH] don't throw away errors

---
 src/Main.hs | 1 -
 1 file changed, 1 deletion(-)

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)