Refactor loading of background shader

2021-03-11 19:18:52 +01:00
parent 6c378659b2
commit 33017a599b
4 changed files with 31 additions and 65 deletions
@@ -78,6 +78,9 @@ doLoop setup window startWorld
        eventFn 
        worldUpdate 
  = do
+    errs <- GL.errors
+    if length errs > 0 then putStrLn $ "GLerror during doLoop: " ++ (unwords $ map show errs)
+                       else return ()
    startLoopTicks <- ticks
    GL.clear [GL.ColorBuffer,GL.DepthBuffer]
    newParams <- worldSideEffects (setup & currentTime .~ startLoopTicks) startWorld